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ABSTRACT 


Under the sponsorship of the Defense Advanced Research 
Projects Agency (DARPA), a conical lens for a 5"/54 ramjet 
propelled, optically guided projectile was investigated. 
The resulting conical lens for the gun-launched missile 
(GLM) will focus parallel incident light through the lens 
to a design focal point. A conical lens was designed using 
an algorithm written for the HP-9845T desktop minicomputer. 
The examples illustrate the automated design procedure, 
selection of possible lenses and final lens design. 


Recommendations for further research are discussed. 
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ma. LHE PROBLEM 

Since World War II the presence of two conflicting 
requirements in missile sensor design has forced unsatis- 
factory compromises to be made in either the optical system, 
airframe or both. Examples of this are the Sidewinder air 
to air (AAM) and Chapparal surface to air (SAM) missile. 
The operational requirements are simple: from a "long" 
range, fly fast enough to pursue and overtake an adversary, 
destroy or disable the adversary and perform all of the 
guidance and tracking functions without assistance from the 
firing platform. The guidance decisions in the Sidewinder 
AAM are made by tracking the thermal radiation emitted from 
enemy aircraft. The radiation enters the missile optical 
system via a hemispherical dome on the nose of the missile. 

Long range and high speed require sleek, low-drag air- 
frames and efficient, high power engines. In the visible or 
infrared, accurate measurement of the line of sight (LOS) 
from the missile to the target requires optical lenses which 
routinely come in the shape of spheres. Spheres and similar 
blunt shapes have very high drag coefficients compared to 
conical or ogive nose shapes. Thus the Sidewinder and 
Chapparal missiles contain excellent optics, yet suffer in 


range and operational capability. 
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The targets expected to be encountered in surface AAW are 
the Soviet anti-ship missiles (ASM). These weapons have 
evolved from simple straight line weapons to those with large 
warheads, multiple seekers and flight profiles which sometimes 
require operational tracking systems to perform beyond their 
design limits. 

The fleet AAW battle doctrine of today is based ona 
"defense in depth” concept. According to this concept the 
E-2C/F-14/Phoenix combat system will be the first unit to 
engage enemy ASM, hopefully at maximum range. The next units 
able to engage the ASM at extended range, assuming the target 
is above the radar horizon, are the units employing the SM-2 
(ER) and SM-l (ER) missiles. While within the SM-2/1 (ER) 
engagement envelope, the SM-1 (MR) missile enters the engage- 
ment at medium range. Finally, once the ASM has penetrated 
this missile cover, the defense in depth concept reduces to 
a "defend each unit, especially the carrier" concept. In 
this region the 5"/54 gun system, Basic Point Defense System, 
NATO Sea Sparrow and Phalanx system are brought to bear. 

The battle group could conceivably consist of an aircraft 
carrier, three Aegis cruisers, two SM-l (ER) cruisers, two 
guided missile destroyers, two guided missile frigates, two 
fast frigates and three destroyers; or a total of fifteen 
units not including logistics ships. The capital assets for 
the ships, aircraft and equipment are in the tens of billions 


of dollars and perhaps 10,000 men. These assets demand 
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protection. However, with three exceptions the AAW combat 
systems presently in the fleet, or near operational status 
are not designed to engage’ a low~flying ASM in a timely 
manner. The exceptions are the Aegis cruiser, NATO Sea 
Sparrow system and Phalanx system; even with these three 
systems, there exists a gap in the 1-10 nautical mile range 
in the defense in depth concept. 

A possible attack scenario is with the battle group 
steaming in an AAW formation when the Soviet commander 
launches a series of three saturation raids of ASM's against 
the battle group. The second and third raid are launched to 
arrive at the moment when the U.S. forces are totally engaged 
with the previous raid. Hence, the second and third raid 
will substantially penetrate the battle group, with perhaps 
the carrier and several of the major escorts at least mission 
disabled. The Soviet commander can now operate at will. 

Two factors are critical to the battle group commander: 
munition assets and engagement time. Compared to the number 
of threats in a saturation attack, the battle group's missile 
assets are limited in number with limited reload capability. 
The battle group commander's gun ammunition assets are large, 
compared to the available missiles. However, with the 
current gun systems the engagement time per round is extreme- 
ly long, on the order of 60 seconds. If the gun engagement 
time could be reduced by a factor of 2, then each gun barrel 


could be twice as effective. 
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Unguided, ballastic projectiles can be replaced by gun 
launched missiles (GLM). The GLM flying at Mach 3.0 can 
intercept in 15 seconds an inbound ASM flying at Mach 1.0 at 
a range of 20,000 yards. This engagement time and range are 
Superior to any close-in system presently in the fleet. 
Therefore the GLM enhances the battle group's capability to 
Survive a raid which saturates the group's long range combat 
systems. The GLM is not designed to replace any existing 
systems but complement them by providing the ability to 
strike out and defeat the enemy in the region from 1 to 10 
nautical miles. In this range interval, defense capability 
presently exists; however, the magazine capacity is limited. 
The GLM will accomplish the ASMD task by marrying existing 
ramjet technology and a new generation of missile optics to 
provide a missile which is able to defeat the Soviet ASM at 
a range far greater than is realizable with today's gun 
systems. 

This thesis involved the writing of and the application 
of computer algorithms to accomplish the following: 

1) Compute and trace monochromatic light rays through 

a conical lens. 

2) Compute a refracting surface to focus monochromatic 

light rays to a point on the GLM axis. 

3) Apply an optimization computer algorithm to the lens 

design problem. 


4) Apply gradient index optics (GRIN) to the lens design. 


Ze 
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B. ASSUMPTIONS AND SIGN CONVENTION 

The computer algorithms are written based on Snell's 
law without approximations. All rays are assumed to be 
transmitted without loss of energy in the medium. When 
total internal reflection occurs, the ray is assumed to 
stop at the point of reflection. The algorithms are 
written to provide a basic understanding of the optics 
involved. Flexible computer programs have been written 
mae the capability of adding ray tracing ability by 
adding subroutines. 

The medium ahead of the GLM is assumed to be air. 

Flying at Mach 3.0 the GLM will produce shock waves which 
will act like a refracting surface [1]. This thesis assumes 
the air to be homogenous, isotropic, linear, time indepen- 
dent (HILT) and free of shock waves in order to investigate 
the fundamental problem of designing a conical lens. The 
lens medium and the medium after the lens are assumed to 

be composed of an HILT material unless otherwise noted. 

The sign convention used is a right-handed system with 
distances positive to the right and up as seen by the reader. 
All angles are positive for a counterclockwise rotation from 
the horizontal axis to the point in question. When used in 
derivation of geometrical relationships, the absolute values 
of angles are used in all trigonometric expressions. 


All linear dimensions are inches unless otherwise noted. 
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A spiked nose used as a ramjet inlet optimizes the 
aerodynamic qualities yet degrades the optical qualities. 
Figure 1 [2] illustrates the inability in the past of a 
Spiked nose to focus light rays while a sperical lens 
accomplishes an excellent focus. Thus, optimizing the 
aerodynamic qualities degrades the optical qualities and 
vice versa. 

Replacing the solid propellant rocket motor now used 
on most missiles with a ramjet engine further complicates 
the compromise between optical quality and aerodynamic 
efficiency. Replacing the rocket with an air-breathing 
ramjet is motivated by fuel economy and the ability to 
throttle the ramjet. The ability to throttle allows the 
missile to fly a thrust equal drag trajectory. This type 
of trajectory results in a vacuum-like trajectory with 
less sensitivity to wind and a marked increase in maximum 
range [3]. 

Ramjets operate with inlets configured for cruise 
performance at the design Mach number. The configuration 
of the inlet shown in figure 2 is based on a design Mach 
number of 3.0 [3]. The spike of the inlet is a combination 
of a cone and curved geometry to provide high pressure 


recovery during supersonic operation [3]. 
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The inlet spike geometry is a complex surface which 
further complicates the task of the lens system which is 
to form an image of the eieaee on the GLM axis. The inlet 
is a fluid mechanical device, called a diffuser, used to 
decelerate the air flow to a subsonic Mach number. The 
diffuser converts the kinetic energy of the flow into an 
increase in pressure of the air, known as pressure recovery, 
and decelerates the flow to a subsonic Mach number. Diffusers 
are required because the combustion of fuel is more efficient 
at high pressure and low velocity. 

A desirable inlet is one which decelerates the flow at 
constant entropy, produces no shocks, creates zero drag 
exclusive of ram drag, and is insensitive to angle of attack. 
Inlets which operate off the design Mach number may have 
additive drag. Additive drag is the sum of the forces 
acting along the streamline A-B shown in figure 3 [4]. The 
pressure multiplied by the area of the streamtube A-B is a 
force which is in a direction opposite to that of flight and 
therefore 1s drag. Examples of other types of supersonic 
diffusers are shown in figures 4 and 5 [4]. 

The marriage of missile optics and a controllable engine 
promises a potent weapon. Preliminary feasibility studies 
have shown that ramjet engines, control systems, guidance 
laws and warhead designs can be integrated into a 5"/54 
projectile [2,3,5,6]. The optical system has been identified 


as a major subsystem which requires additional investigation. 
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Specifically, the lens, which is required to focus the image 
of the target, is the stumbling block to an efficient ramjet 
design. A blunt nose cannot be used because of poor pressure 
recovery and large additive drag. Therefore, some type of 

an inlet using a spike must be used. The spike must also be 

a lens capable of forming an image on the GLM axis. The lens 
must have a large enough aperture and field of view to provide 
the GLM with sufficient data to maintain and accurately 
measure the line of sight. 

This thesis is based on an inlet design by Brown [3] 
using data from Faro [7] shown in figure 2. The inlet is a 
15° conical tip, axisymmetric, isentropic spike for a design 
Mach number of 3.0. The spike studied in the thesis is a 
cone having approximately the same length-to-diameter ratio 
as the inlet in figure 2 [3]. Hence, the first optical 


surface used for ray tracing is a cone with a 2a half-angle. 


aa 





IIIT. SECOND SURFACE GENERATION: DIRECT SOLUTION 


The direct solution to designing a conical lens consists 
of solving Snell's Law at a point T shown in figures 6 and 7 
along the refracted ray within the lens. Point T is located 
below the line QP in figure 6. When T is in this position 
relative to QP, the geometry is referred to as the low region. 
When T is in the position shown in figure 7, the geometry is 
referred to as the high region. When T is on the line QP, 
1.€. 01 = 8, the low region geometry is assumed. 

The following discussion is the derivation of expressions 
for 02, the angle with respect to the GLM axis of the ray 
refracted at T which passes through the design focal point 
P, and a2, the angle which the tangent line at T makes with 
respect to the GLM axis. The derivation will only discuss the 
low region, because the procedure for the high region is 
identical and only the results for the high region will be 
given. The magnitude of a line segment is shown by stating 
the endpoints of the line segment in uppercase letters or by 
a single lower case letter. 

Let QP=, QT=s and OP=f; then according to the law 
of sines sina/2 = (sin(m-[a+|8]]))/f£. This relation 


Simplifies to 


2 £rsane (1) 


sin(at+]|B8]) 
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Next, note that 


RT = s sin(|o:| -|8]) (2) 
and 
RT = (PQ-QR) tan(|8|-|p2]/) (3) 
Now PQ-QR=L-s cos(|o;|/-|81]). Substituting this into 
equation (3) and solving for tan(|8|-|92|) yields 
[8 |-|02| Fm mi (4 
semaie|-|e2|) = | -——_—_——_———— 4 
See cos(|o;|/-|8]) 
sin(a+|8]|) 
Consequently the formula for |p2| becomes |8| - arctan{}. 


Using equation (4), 01, the angle with respect to the GLM 
axis of the ray refracted at Q, apply Snell's Law at T. 
Thus, referring to figure 6 

n 


, 2 _ | 
siné. = ns sin6, = no 3Sin6, (5) 


where 6, = |NORM|-|p2| and @, = |NORM|-/09:|. 

Substituting these expressions into equation (5) yields a 

relation involving the sine of two angles. Expanding the 

sine expressions and solving for tan|NORM| yields 
sin|p2| - nj3sin|p.| 


tan|NORM| = ee (6) 
cos|p2| - n,.cos|p1 | 


and |NORM| = arctan{ }. Equation (6) must be greater than 
or equal to zero for the expression to be valid. Then 


a2 = > - |NORM| (7) 
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The result of the derivation for the high region yields 


s sin(|8|-| 1 |) (8) 
£ sina 
sin(a+|8|) 


tan(|o2/-/|8]) 
- s cos(|8|-|01]) 


Ny 3 sin|o1] - sin|o2| 
tan|NORM| = —=—————————_—____ (9) 
n,, cos|ei| - cos|p2| 
and solving for a, gives 
Coa > - | NORM | GEG) 


Therefore, a, is a complicated relationship involving 
incident ray position, denoted by 8, cone half angle a, 
1’ Mo! and ns 


and position s along the ray within the lens. In order for 


design focal point P, the refractive indices n n 
a systematic study to be conducted, the parameters a, f, 
Nj, Ny and n, are assigned specific values. The parameter 
B is determined by the position of point Q on the first 
surface. The angle of 01, is determined by the incident 
ray angle with respect to the first surface, ny, and no. 
Therefore, with the values for the parameters, either fixed 
or calculated, a design chart relating a2 with the position 
along the ray in the lens s shown in figure 8 can be 
generated. The numbered curves correspond to numbered rays 


entering the lens. The rays are numbered consecutively 


beginning with the one nearest the GLM axis. 
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The actual design process involves selecting a starting 
point, Tl, on a given ray and noting the magnitude of Sy 


as shown in figure 9. With that value of enter the 


Sy: 
design chart in figure 8 and read the value of 2 | from 
curve number 1. Returning to figure 9 extend a line from Tl 
using Oo until that line intercepts the next ray at T2. 
Measure the value of S5 and enter figure 8 to obtain the 
value of O2, from curve number 2. Return to figure 9 and 
extend a line from T2 to intercept the next ray, etc. This 
process continues until all of the rays are intercepted or 
the first surface is intercepted. Once the intercept point 
T and the angle of the tangent line a2 is Known, the ray 
can be refracted at T. Equations (4) and (7) for the low 
region and equations (8) and (10) for the high region 
accomplish the refraction. The result of each refraction by 
design result in a refracted ray through the focal point P 
as shown in figure lO. 

The design procedure does not produce a single surface 
which can be used to refract light through the focal point. 
The surface designed depends on which ray was chosen as the 
initial ray and the value of s along that ray where Tl 
is positioned. Thus, a small family of surfaces illustrated 
in figure ll can easily be calculated to provide a choice of 
lens second surfaces to the optical engineer. 

The lens designer must choose from the family of second 


surfaces generated by the design procedure. In order fora 
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consistent set of decisions to be made a set of design crite- 
ria for this thesis are: 

Ipeeethat the lens must be as thin as vossible. 

2) that the lens have as large an aperture as possible. 

The aperture is defined to be the difference in 
radius between the maximum and minimum radii from 
the GLM axis at which light rays enter the lens and 
are refracted through the focal point. 

3) that the focal length to diameter ratio, f/d, is 

a minimum and in no case greater than 4. 

Using the stated design criteria, surface number 1 in 
figure ll is the logical choice because it is the thinnest 
and has the maximum aperture of the 5 surfaces provided. 
All of the surfaces have the same f/d ratio of 2.73. 

Each member of the family of surfaces is generated by 
using straight lines. Since a real surface will not be a 
series of flat surfaces but a smooth continuous surface with 
no discontinuities, an inherent error exists in the design. 
The error can be reduced substantially by using a large 
number of rays to provide a large number of line segments. 
to approximate a continuous surface. The designer must now 
choose the number of rays to be used, repeat the design 
process and generate the design chart for the final lens 
design using, for example, 26 rays in figure 12. Using 
figure 12, the designer calculates the final lens design 


in figure 13 beginning with the starting point which is the 
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end of a curve number 1 in figure 12. Thus Tl is near 
the GLM axis and a2 = 21°. 

A ray diagram shown in figure 14 illustrates the paths 
of the light rays through the lens generated using the 
design chart in figure 12. A histogram showing the distri- 
bution of light rays on the image plane reveals that the 
light rays do pass through one design focal point plus or 
minus an half-increment width. The width of an increment 
is defined as the maximum radius of the GLM divided by the 
desired number of intervals. For example, if the maximum 
radius of the GLM is 1.1 inch and 100 intervals from the 
GLM axis to a radius of 1.1 inch then the increment width 
is 0.011 inch. In order to position an interval on the 
Origin, an increment is centered on the origin. The effect 
of this operation is to add a half-increment at the maximum 
value of the radius. Therefore, for the entire GLM a total 
of 2 x 100 + 1 = 201 increments are used to generate a 
histogram. The fact that all of the rays intersect the 
focal point shows the calculations are correct for this 
particular lens. 

An automated computer algorithm, CHART, has been written 
to construct a design chart and calculate a family of sur- 
faces from that design chart. CHART waits until the operator 
chooses a particular surface from the presentation and the 
number of rays desired to calculate a final surface. Next, 


CHART will compute the final surface and present it to the 
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operator. The operator can choose to stop or draw a ray 
diagram to show the effectiveness of the design. If the ray 
diagram is chosen a histogram of ray distribution on the 
image plane is presented to the operator. If the operator 
wants to design a lens using another surface, the entire 
procedure must be repeated. 

The following figures are a sample run of CHART to design 
a lens. Tables containing the initial parameter values and 
calculated data are located in Appendix A. The design chart 
in figure 16 was generated using the initial parameter infor- 
mation in Table A-II. The family of second surfaces in 
figures 18 and 19 were calculated using the end of each 
numbered curve in figure 16 as the starting point Tl for 
Bach numbered second surface in figures 17 and 18. The 
information used to draw figures 17 and 18 is in Table A-III. 
The rays shown in figure 18 were used to generate the design 
chart and family of second surfaces figures 17 and 18. The 
maximum length of a ray in the lens is defined as QA, the 
distance from the intercept of the incident ray and the 
first surface to the GLM axis. The calculated information 
used to draw the family of second surfaces in figures 17 and 
18 is found in Table A-IV. A comparison of QA and the value 
of s used as the starting point Tl for each family, 


S is found in Table A-V. 


max’ 
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Surface number 1 was chosen because the surface satis- 
fied all of the design criteria. The final design chart 
shown in figure 19 was generated using 26 rays. The number 
of rays actually entered into the computer was 25, CHART 
then calculates the aperture of the lens using the chosen 
surface. If the lower limit of the aperture is not the GLM 
ax1s, CHART adds one ray to the number entered to use as 
the starting ray. This method insure a ray will be drawn 
at the maximum and minimum boundaries of the aperture. The 
calculated data used to generate the design chart in figure 
19 is listed in Table A-VI. 

The final lens design shown in figure 20 consists of a 
surface defined by 26 points rather than 10 with the initial 
design. The coordinate values for the final surface are 
found in Table A-VII. The refinement of the surface obtained 
by using 26 rays is illustrated by comparing the end points 
of the surfaces listed in Tables A-VII and A-IV. The changes 
in x, y are (-0.009, 0.013) inch. The change in s is 
(-0.016) inch. Hence, the lens designer should be aware 
of the tendency of the final surface to move towards the 
first surface, possibly resulting in the design surface 
intercepting the first surface prior to the GLM wall at the 
Maximum radius from the axis. This effect results ina 
decrease in aperture, a violation of the design criteria. 

The final design surface is then drawn within an outline 


of the GLM shown in figure 21 illustrating the symmetry of 
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the design and the location of the lens within the missile. 
A ray diagram using the final lens design shown in figure 
22 with the distribution of the rays on the image plane 
shown in figure 23. The coordinate values used to draw the 


ray diagram in figure 22 are listed in Table A-VIII. 
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inches 


GLi Axis ¢€ 


Distance Along the 


SURFACE NUMBER 1 


6.008 deg 


: 26 
4.00000 


funber of Rays 


Incident Ray Angle 


ne 


-390 inch 
21.00 deg 


Aperture 


4.08 inch 


Image Plane 


Alpha 


Buguire 22. 


7 Showing the Trajectories of the 
Light Rays Through the Final Lens Design. 
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IV. RECOMMENDATIONS FOR FUTURE WORK 


This thesis investigated part of the properties of a 


conical 


a) 


b) 


e) 


dq) 


e) 


ie) 


g) 


h) 


lens. Future studies should investigate: 

the effect of skew rays on the image. 

the effect of total internal reflection on the image. 
the calculation of monochromatic and chromatic 
aberrations for the conical lens. 

the availability and applicability of materials to 
use for a lens. 

the effect on the incident rays of the shock wave 
in the air ahead of the GLM. 

the effect on the image of an object not on the 
lens axis. 

the effect on the image when the object is no 
longer in the far field and the curvature of the 
ray front must be taken into account. 

the ability of a conical lens to focus coherent 


and incoherent light. 
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V. CONCLUSIONS 


The completed design of figure 22 indicates that a 
conical lens can focus incident light which is parallel 
to the GLM axis. The conical lens design is compatible 
with the aerodynamic requirements of high pressure 
recovery and low drag. The ability to provide optical 
guidance information to the GLM powered by an integral 
rocket ramjet may provide the battle group commander 


with an inexpensive ASMD weapon for shipboard use. 
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APPENDIX A 


CHART SAMPLE OUTPUT AND PROGRAM LISTING 


This appendix contains the program listing for CHART. 

The subroutines listed in Table A-I were copied or derived 
from the HP-9845 utilities library, cassette number 2, 
Ser. No. 09845-10205, program REGPLT. 

Subroutines DRIVER, POLYNOMIAL and PLOT-CUBIC are not 
implemented in the present version of CHART because of time 
constraints. They are designed to be used to fit a poly- 
nomial of degree 3, a cubic, between four points to estimate 
the shape of the second surface. The requirement to fit a 
curve stems from the fact that the trajectory of a ray cannot 
be calculated if the ray does not coincide with a known ray 
trajectory. Hence, two options are open. The first is to 
calculate an infinite number of points on the second surface 
which is not practical. The second option is to estimate the 
actual shape of the second surface with an analytic expression, 
a cubic in this application. The error of the estimate can 
be reduced by designing a second surface with a large number 
of points. CHART has been written to design a lens with a 
maximum number of 250 points. 

CHART, aS implemented on the HP-9845T is a slow program. 
The design procedure described in chapter III requires 


approximately fifteen minutes for an experienced operator. 


61 





Therefore, if the initial and final design charts used 
more or less rays then the computation time should be 


scaled accordingly. 
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TABLE A-I 


SUBROUTINES DERIVED FROM THE HP-9845B UTILITIES LIBRARY 


Name Line Number 
Plot 8710 
Laxes acid 
Beyer So 0 
Polynomial 14400 
Plot-Cubic 14910 
Min 21040 
Max 21160 


6:3 





Papi Aa t 





INITIAL PARAMETER VALUES 





Alpha = 21.600 degrees Rho-initial = 08.08 

TANCAlphad = .38 TANCRHO-INITIAL) = ¥Y.80 

RHO1 = -55.50 degrees Thetatcritical>d = 14.48 degrees 
GLM Radius = 1.10 inches 

Aperture = 1.18 Ya = 9.00 inch Yb = 1.18 inches 

ni = 1.00000 n2 32 4.800000 n3 1.90808 

Number of Rays = 180 


Design Focal Point = 4.00 inches 








TABLE A-III 


CALCULATED DATA USED TO CONSTRUCT THE DESIGN 


CHART IN FIGURE 16. 

RAY BETA THETACRAY > NORMAL 3 ALPHR2 RHO = 
1 Stoo o¢ l3esal¢ -o$8.320 9.080 -1.188 Hh lla 
1 =15697 13.326 -63.829 887 ei.tvt ~l.6o14 
1 =l.oo¢ 13.339 -568.333 ~813 21.1562 -1.5308 
1 =1.697 13.344 -68.347 - 928 21.153 ~1.44° 
1 aloo 7 13.354 08.856 827 21.144 =Laies 
1 woo? 13.363 -68.366 ~ 833 21.134 =e 
1 =l697 13.372 -68.875 - 840 Zi.ie2 =], feo 
1 =-1.697 13.331 -68.884 - 847 21.116 =1. Dit 
1 ale 690 13.3998 =60.0 990 - 853 21.107 “1. G27 
1 =13097 13.399 -68.992 - 869 21.998 ~.942 
1 al. oO C 13.498 =68—0 911 867 21.089 -.35r 
1 =i. 697 13.417 -63.920 8°73 21.888 ofte 
1 =leoo? 13.426 -63.929 - 980 21.071 =. 6c¢ 
1 =O 20 13.435 -$8.933 - 937 21.862 -.602 
1 = 6 oe 13.444 -63.947 ~ 393 21.053 = oe 
1 =1.e07 13.453 -63.956 . 188 21.044 -.431 
1 =1.697¢ 13.462 -63.965 ~107 21.835 ~.o45 
1 =1, 6 1 13.471 -58.974 e113 21.926 =. 
1 ae on 13.479 -58.982 ~129 21.013 =. la 
1 =1.697 13.488 -68.991 stad 21.009 =. Boa 
1 =1.6o¢ 13.479 -62.982 ~129 21.018 =. lie 
1 =1.697 13.438 -63.933 otal 21.017 -.164 
1 -1.697 13.481 -53.984 ~121 21.016 -.156 
1 =l.097 13.432 -68. 985 ~122 21.915 -.14° 
1 =.097 13.433 -68.9386 ~123 21.014 -.1338 
1 —aoor 13.484 -58.987 e123 21.813 -.129 
1 1.69% 13.485 -68.988 ~124 2leohe =. Tal 
1 =lwole 13.486 -63.989 2125 ai. Ort ~.its 
1 =1.697 13.486 -68.989 2125 21.011 =. iG 
1 =La6o¢ 13.437 -68.990 ~ 126 21.0910 -.095 
1 =1,5 27 13.438 -68.991 ~127 21.809 -.087 
1 =leoo 7 13.489 -$8.992 lar 21.098 -.07 
1 -1.637 13.498 -68.993 ~123 21.807 -.862 
1 =To27¢ 13.491 -68.994 -129 21.006 -.B61 
| =1.69¢ 13.492 -68.995 ~129 21.885 -. 652 
1 -1.3697 13.493 =65.976 - 138 21.804 -.043 
1 =1.697¢ 13.494 -68.996 2131 21.004 -.835 
1 =o? 13.494 -68.997 e131 21.083 -.025 
1 =[5677 13.495 -98.998 ~ 132 21.002 -.O1r 
1 -1.697 13.496 -58.999 2133 21.001 -.809 
1 =1 697 13.495 -33.998 ~132 21.802 =, On 
1 =1.697 13.495 -68.998 o 132 21.802 -.915 
1 =1.697¢ 13.495 -$8.998 ~132 21.002 mesa 
1 =. 697 13.496 “OSe9 oo o 132 21.091 -. WIRS 
1 =o? 7 13.496 ~68.979 - 132 21.081 ~.014 
1 =l.oo7 13.496 -63.999 ~132 21.001 -,.013 
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TABLE A-III (CONT) 








RAY BETA THETACRAY > NORMAL S ALPHR2 RHO 2 
t -1.697 13.495 -68.999 ~133 21.001 -.O012 
1 aloo ¢ 13.496 =68. 3999 2133 21.001 =eOl 1 
t =Lso77 13.495 =oc6 299 -133 21.001 -.919 
t =l.5or 13.496 =o. 799 ~133 21.001 -.919 
1 =. O90 13.496 -68.999 ~133 21.001 -.099 
1 =l.627 13.496 =53.999 2133 21.001 -.085 
t =—1.097 13.496 =Sos 90° - 133 21.001 -.yvur 
t =l.62¢ 13.496 -63.399 2133 21.001 -. 086 
t =L.097 13.497 -68.999 ~133 21.001 -.095 
1 =1.6097 13.497 -69.000 ~133 21.800 -. 064 
—leOot 13.497 -59.000 -133 21.9000 -.U03 
1 ale Oot 13.497 -69.000 -i33 21.000 =. 983 
t =e o9r 13.497 -69.000 ~ 133 21.000 -. 902 
t ~le.oor 13.497 -53. 000 ~133 21.080 -.900! 
t =1.697 13.497 -59. 008 ~133 21.000 -.302 
1 at. 697 13.497 -53.300 -133 21.000 -.0GB2 
t leo oe 13.497 -69. 900 -133 21.000 -. 992 
t =1.697 13.497 -63.080 -133 21.000 -. 9801 
t =1.697 13.497 -59.008 «iss 21.000 -.901 
1 =o ot 13.497 -59.900 bss 21.000 =, 081 
1 eo ae 13.497 ~69.000 -133 21.000 -. B01 
t Soe Tg 13.497 -59.000 e132 21.9000 -.001 
t =1..697 13.497 -69. 809 133 21.8090 =. 91 
t ae Oor 13.497 -69. 000 - 133 21.000 =, 00. 
1 =1.697 13.497 -639.8069 2133 21.000 -.BO1 
t Siaoor 13.497 -639.009 2133 21.008 -.001 
1 =1. 697 13.997 -63.900 -133 21.080 -. 901 
t aleoor 13.497 -69. 000 ~133 21.000 -.081 
t Sivoo? 13.497 -59.800 0133 21.000 =. OBit 
t =e Oo 13.4937 -59.9800 -133 21.400 -.u08 
1 =—1r6 97 13.497 -69.000 2133 21.900 -. 9086 
1 —ieOo( 13.497 -69.9080 133 21.908 -.980 
t -1.697 13.497 -69.008 -133 21.800 -. 989 
1 | WRT 13.9497 -69.000 «ics 21.800 -. 000 
2 -3.673 13.0387 -63.589 8.808 21.411 -3.67 
2 -3.673 13.108 =69.6)1 | -8t3 21.339 -3.493 
2 “3.67 13.129 -63.632 ~ 927 21.368 - <Jervet 
2 -3.6¢ 13.150 -63.653 - 940 21.347 -3.144 
2 “3.673 L3s.i7l -68.674 - 952 21.326 -2.956 
2 =3.07°3 13.192 -58.595 - 867 21.305 =2. fon 
« =Se673 13.213 “63.716 - 980 21.234 -<2. 688 
2 -3.673 13.234 =65.75¢ 3S 21.263 =e 
z =3.50/73 13.255 -63.758 ~107 21.242 -2. 243 
e =3.6(3s 13.276 “98.779 ~ 120 2t.221 -2.063 
2 -3.673 13.296 -63.799 -133 21.201 -1.339 


nn ae ees 
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TABLE A-III (CONT) 





ALPHR2] RHO 2 


Y) 


RAY BETA THETACRAY) NORMAL 


s 


NNN NNN NNN DNONNNNNDNNWNHONDNDNNNNNNNVINNN NN NNNN hs WWNND | D fy 


1ae3i7 
13.337 
iSavos 
13.378 
13.398 
13.413 
13.438 
13.458 
13.477 
13.458 
13.460 
13.462 
13.464 
13.466 
13.468 
13.470 
13.472 
13.474 
13.475 
13.477 
13.479 
13.431 
13.483 
13.485 
13.487 
13.489 
13.491 
13.493 
13.495 
13.493 
13.493 
13.494 
13.494 
13.494 
13.494 
13.494 
13.494 
13.495 
13.495 
13.495 
13.495 
13.495 
13.496 
13.496 
13.496 
13.496 


-63.820 
-63.848 
-63.361 
-63.381 
-63.901 
=65. 321 
-53.941 
-68.961 
-58.930 
-68.961 
-58.963 
-68.965 
-68.967 
"63.969 
-88.971 
-68.9/73 
-68.975 
"63.976 
=68.975 
-58.980 
-68.982 
“58.984 
-59.986 
-53.988 
-98.990 
“66. 992 
-63.994 
-53.996 
-56.996 
-68.996 
-63.996 
-68.996 
-68.997 
-63.997 
=638. 9395 
=68.99R 
-68.997 
-68.998 
-§3.938 
-63.998 
-68.998 
-69.993 
=656 799 
=63. 97? 
=6S.95> 
"68.999 
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21.180 
21.168 
21.139 
Zi, 119 
21.899 
21.979 
21.0593 
Z1.vs7 
21.020 
21.039 
21.037 
21.035 
21.9833 
21.031 
21.029 
21.027 
21.025 
21.024 
21.022 
21.020 
21.3818 
21.016 
21.014 
21.012 
21.019 
21.008 
21.806 
2i.aa¢ 
21.002 
21.804 
21.004 
21.004 
21.003 
21.903 
21.003 
21.003 
21.903 
21.9002 
21.9002 
21.902 
21.902 
21.002 
21.001 
21.001 
21.001 
21.001 


-1,.696 
~loods 
=e 
-1. 26? 
el 
=7 06 
=.07 3 
-.383 
=e 
=7 50 
-.3o64 
-.345 
=. g20 
-.307 
-.233 
=.65s 
-.249 
-.e220 


=“. Use 
=a 
=. lot 
=. ict 
-.1%t5 
=. 396 
=-.6¢7 
-.0538 
-.033 
=o 
=.92c 
-.¥o7 
-.935 
-.U33 
-.931 
-,.U29 
-.G2” 
-.925 
-.023 


-.0193 


-.Ol2 
-.918 
-.993 











TABLE A-III (CONT) 


RAY BETA THETACRAY) NORMAL S RALPHRe RHO 2 
2 -3.6°3 13.496 -63.. 939 ~ 267 21.001 -. 006 
2 -3.673 13.497 -69.000 267 21.0800 -. 904 
= = s.r 3 13.497 -69.800 267 21.000 -. 002 
é -3.673 13.497 -69.000 ~267 21.000 -. 804 
2 ao eGr 3 13.497 -69.300 267 21.0008 -.U04 
2 -3.673 13.497 -69.000 2267 21.000 -.003 
2 -3.673 13.497 -69.000 267 21.000 -.0B5 
2 -3.673 13.397 -69.000 267 21.000 -. 803 
2 -3.673 13.497 -69.080 267 21.009 -.902 
2 -3.673 13.497 -69.000 267 21.000 -. B83 
2 -3.673 13.497 -69.000 e67 21.000 -. 003 
2 =o.003 13.497 -69.000 267 21.000 -.002 
2 -3.673 13.497 -59.000 267 21.000 -.002 
2 -3.673 13.497 -69.000 ~ 267 21.000 -. 802 
2 -3.673 13.497 -69.0300 ~267 21.000 ~.UG= 
2 -3.673 13.497 -69.000 0 267 21.000 -.UUZ 
< -3.673 13.497 -69.000 0267 21.000 -.6a1t 
2 -3.673 13.497 -69.000 «267 21.000 -.001 
2 -3.673 13.497 -69.000 267 21.3008 -.0H1 
2 -3.673 13.497 -69.000 ~267 21.000 -.901 
2 -3.673 13.497 -69.000 ~267 21.000 -. 901 
2 -3.673 13.497 -69.000 ~ 267 21.000 -.808 
2 -3.673 13.497 -69.000 ~a07 21.0008 -.0O8 
2 -3.673 13.497 -69.000 ~267 21.0008 -. 300 
< -3.673 13.497 -69.000 ~ 267 21.000 ~. 080 
2 -3.673 13.497 -69.000 267 21.000 -.000 
2 -3.673 13.497 -69.000 267 21.3000 -. 9B 
2 -3.673 13.497 -69.000 ~267 21.000 -.08n 
2 -3.673 13.497 -69.000 .26° 21.890 -. ben 
2 -3.673 13.497 -69.000 267 21.000 -. 009 
2 +3.673 13.497 -59.000 2267 21.000 -. 939 
2 -3.673 13.497 -69,.000 267 21.000 -.060 
2 -3.673 13.497 -69.000 ~267 21.000 -.380 
2 -3.673 13.497 -69.000 267 21.000 -.900 
2 -3.673 13.497 -69.000 267 21.000 -. 000 
2 —3. os 13.497 -69.000 267 21.000 -.400 
2 -3.673 13.497 -69.800 267 21.000 -.490 
2 -3.673 13.497 -69.000 267 21.000 -.008 
2 -3.673 13.497 -59.000 ~267 21.000 -.008 
2 = saOtS 13.497 -69.000 267 21.000 -.800 
2 -3.673 13.497 -69.9000 ~267 21.9000 -.000 
z -3.673 13.497 -69.000 ~267 21.800 -.000 
2 -3.673 13.497 -69.000 ~ 267 21.000 -. 860 
3 =35999 12.787 -68.290 0.400 gir tO “Sieeo? 
3 = Je 999 12.325 -63.327 - 920 21.673 = DJefese 








RAY 


WWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWW WW WW WwW w 


BETA 


TABLE A-III (CONT) 


THETACRAY > 


12.862 
12.399 
12.936 
12.972 
13.009 
13.2345 
13.081 
13.117 
13.153 
13.189 
13.224 
13.259 
13.294 
13.329 
13.363 
13.397 
13.431 
13.464 
13.497 
13.464 
13.467 
13.471 
13.474 
13.477 
13.481 
13.484 
13.487 
13.498 
13.494 
13.497 
13.494 
13.494 
13.494 
13.495 
13.495 
13.495 
13.496 
13.496 
13.496 
13.497 
13.497 
13.497 
13.497 
13.497 
13.497 
13.497 


NORMAL 


-63.365 
-68.402 
-68.439 
-68.475 
-68.512 
-68.543 
-68.584 
-68.628 
-68.656 
-68.632 
-68.727 
-68.762 
-68.797 
-9§8.831 
-68.366 
-63. 980 
-68.933 
-68.967 
-69.080 
-68.967 
-53.978 
-68.974 
-65. 977 
-68. 930 
-58.983 
-68.987 
-68.9990 
=63. 323 
-63.997 
-69.800 
—-65. 997 
-63), 997 
-68.997 
-68.998 
-68.998 
-68.993 
-68.999 
-65. 993 
-68.999 
-69.008 
-~69.000 
-09.009 
-69.809 
-69.000 
-69.900 
-69. 000 
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ALPHRe 


21.635 
21.3598 
21.561 


RHO 2 











BETA 


TABLE A-III (CONT) 


RAY THETACRAY) NORMAL S ALPHAS RHO 2 
3 =a 999 13.497 -o9.000 - 43G 21.208 -.0G02 
3 =a. woo 13.497 -59.909 - 499 21.009 -.001 
3 =I 99? 13.497 -69.000 . 408 21.9080 -.H91 
3 ton 99 13.497 ~69.0909 - 408 21.000 =U 
3 =3. 999 13.497 -59.9809 - 489 21.990 -. 980 
3 31999 13.497 -69.909 - 439 21.0080 -. 008 
3 =u 999 13.497 -69.990 » 4906 21.908 -. 908 
3 =a. 299 13.497 -69.3800 - +9 21.300 -. 980 
3 =m. 999 13.497 -69.909 - 400 21.909 -.809 
3 =25 999 13.497 ~69.099 - $993 21.9090 -.0@n 
3 =o. 999 13.497 -69.989 » 490 21.909 -.968 
3 238999 13.497 -59. 300 . 493 21.990 -.080 
3 =a. 999 13.497 -69.0900 - 489 21.899 -. 000 
3 =). $99 13.497 -59. 900 - 408 21.069 -. 808 
3 ~5. 999 13.497 -69. 900 . 404 21.009 -.8009 
3 “3.999 13.497 -69.999 . 4900 21.090 -.008 
3 =>. 999 13.497 -59.23989 . 499 21.0900 -.990 
+ -8.765 2.391 -67.894 - 8090 22.186 =3\, (Go 
4 ~8.765 12.449 "67 oe ~G27 22.042 —-e. Si 
* -8.765 12.5907 -68.019 .853 21.999 -7.984 
4 =8. 765 12.565 ~68.968 - 830 21.932 -" . 23> 
4 -8.7685 12.623 ~63.126 « 1Q7 21.374 ~felae 
4 ~8.765 12.631 -68.184 - 133 21.316 -6.774 
+ -8.765 l2-7os -§8.241 - 169 21.759 -6.361 
+ -8.7635 l2s¢ o> -68.298 ~187 21.7082 -35.3942 
4 -8.765 12. gu ~-68.355 ~214 21.645 =. wae 
+ =3. 765 12.988 ~68.411 -248 21.589 -5.0889 
4 -8./765 12.964 -53.467 ~267 21.533 -~4+.654 
4 ~8.765 13.8298 -68.523 .294 21.477 “4.214 
4 =3.°6. 13.875 ~-63.578 ~ 329 21.422 “35763 
4 -8.765 13.139 -88.533 ~ 347 21.367 —Jero ls, 
4 =8.765 13.184 -68.6087 ~374 wile 313 -2.360 
4 -8.763 13.238 ~68.741 - 409 21.259 -2.393 
+ ~8.765 13.29! -68.794 ~ 427 21.206 ~1.3930 
4 -8.765 13.343 ~-63.346 «454 21.154 ~1.455 
4 =3). 750 13.395 -68.898 - 489 21.162 =a 97 6 
4 -8.765 13.447 ~68.949 2507 21.851 -.491 
4 -8.765 13.447 ~93.949 -5G7 21.951 -~.491 
4 -8.765 13.452 “63.935 -319 21.945 -.442 
4 ~3. 7°65 13.457 -63.969 ~S13 21.940 ero 
? “8.755 13.462 ~§8.965 2515 21.935 ~.344 
4 -38.765 13.467 -63.979G -318 21.930 -.295 
+ ~8.765 13.472 -63.975 252i 21.025 ~.246 
+ =3 5° 62 13.477 ~58.986 2523 21.920 =e 
4 =3. 760 13.482 ~63.985 2326 21.9015 -.148 
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RAY BETA THETACRAY) NORMAL S ALPHA2 RHO 2 
4 -3.765 13.487 -$8.998 329 21.018 -.999 
4 -8.765 13.492 -68.995 331 21.885 -.349 
~ -3.765 13.492 “68.995 331 21.085 -.049 
4 -8.765 13.493 =53.99 9 e331 21.885 -.644 
4 -8.765 13.493 -63.996 »332 21.0884 -.940 
4 -8.765 13.494 -68. 996 2332 21.804 -.835 
4 -8. 7°69 13.494 =63. 99 ~332 21,883 -.83d 
+ -8.765 13.495 =68io9° 2333 21.883 -.¥25 
+ -3.765 13.495 =oo. 770 2533 21.682 -.826 
4 =3. (6. 13.496 -68.998 0533 21.082 =. US 
4 -8.765 13.496 -68. 999 ~333 21.001 -.018 
4 -3.765 13.497 =O gio oo ~ 534 21.8081 -.805 
4 -3.765 13.497 -63, 999 334 21.801 -.9085 
e ~-3. 7°65 13.497 -69. 880 ~334 =1.888 -. 004 
4 -3.765 13.497 -53. 808 ~334 21.888 -.004 
4 -8.765 13.497 -69. 800 -334 21.008 -.083 
4 -8.765 13.497 -69. 880 ~ 334 21.880 -.003 
+ “3.765 13.497 -69.000 -S534 21.088 -.U@2 
4 -8.765 13.497 -69.308 2534 21.088 -.802 
+ -8.765 13.497 -59.088 334 21.088 -.001 
+ -8.765 13.497 ~69.8680 ~ 334 21.888 -. 081 
4 =8. 765 13.497 -53.888 ~3534 21.088 -. 088 
4 =8. 765 13.497 -59. 088 ~ 334 21.888 -.3968 
4 -8.765 13.497 -S9. 808 2334 21.882 -.998 
oO -8.765 13.497 -53. 880 -534 21.808 -.038 
* =-8.769 13.497 -69. 880 25334 21.888 -.000 
+ -3.765 13.497 -69.008 2334 21.088 -.060 
4 =8. 760 13.497 -59. 888 534 21.088 -.008 
3 -8.765 13.497 -69. 880 2534 21.082 -.986 
4 -3.765 13.497 -69.388 2334 21.2888 -.8980 
4 -8.765 13.497 -69.808 2334 21.008 -.0238 
4 -8.765 13.497 -69. 800 2334 21.888 -. 808 
S -12.892 11.356 -67.359 8.880 22.641 =-12.892 
S -12.892 11.941 -67.444 © 833 22.556 “11.937 
3 =12.832 12.827 -67.538 - 867 22.478 -11.9073 
S -12.892 12.112 -57.615 - 18@ 22.385 718.549 
S -12.892 Léa. 197 -67.788 2133 22.380 “10.8015 
S ~12.892 12.283 -67.786 ~ 167 22.214 “9.471 
3 “12.992 12.363 -64. S71 - 288 22.129 -8.9i¢ 
3 -12.892 12.453 -67.356 2234 22.844 -3.3353 
5 =i2.092 12.537 -68.840 ~267 21.968 =. 
3 -12.892 12.622 -68.125 - 388 21.875 =7, lag 
S -12.992 12.785 -63.208 334 21.792 -6.596 
S ~12.892 12.789 “53.292 ~ 367 21.788 = ooo 
3 ~12.892 12.371 -58.374 - 488 21.5626 -5.378 
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TABLE A-III (CONT) 


RAY BETA THETACRAY >) NORMAL S ALPHA? RHO 2 
S “12.892 12.933 -68.456 434 21.544 -4.740 
S -12.992 13.034 -63.537 ~ 467 21.463 “4.899 
S -12.092 13.114 -§8.617 - 501 21.383 -3.446 
S -12.9092 sels -068.696 ~534 21.304 —c. Von 
S -12.092 13.271 -63.774 o 367 2i.225 -2.104 
S -12.992 13.348 -63.351 -o0l 21.149 =115 
S -12.092 13.423 -63.926 ~534 21.074 =r at 
S -12.092 13.348 -68.3851 -601 21.149 “1.415 
3 -12.092 13.355 -63.358 - 684 21.142 -1.345 
S -12.9092 13.363 -63. 866 607 21.134 -1.2975 
S -12.092 13.371 -38.874 ~-611 21.126 ~1.206 
S -12.092 13.378 -63. 881 ~-614 E19 =lwiss6 
S -12.092 13.386 -68.889 -617 Zit tl -1.066 
S -12.9092 13.393 -68.3896 621 21.104 -.3995 
S -12.092 13.461 -68.904 - 624 21.096 -. Aen 
S -12.092 13.488 =-63 941 627 21.089 -.355 
S -12.092 13.416 “68.919 ~631 21.081 ~<e oe 
S -12.092 13.423 -68.926 -634 21.074 -.714 
S -12.092 13.431 -63.934 ~637 21.066 -.645 
S -12.092 13.438 -68.941 ~641 21.059 oh ce 
S “12.092 13.446 -68.948 ~ 644 21.052 -.561 
S ~12.092 13.453 -68.956 ~647 21.044 -. 430 
S -12.8092 13.468 -63.963 ~651 21.037 -.358 
S -12.092 13.468 -68.971 -654 21.029 - 237 
S -12.8092 13.475 -68.978 ~857 21.022 -.2rs 
S -12.092 13.482 ~68.985 -561 21.015 -.144 
S -12.092 13.498 -63.993 - 664 21.007 -.072 
S -12.092 13.482 -68.985 ~661 21.015 ~.144 
5 -12.092 13.483 -58.986 ~5o01 21.014 =o ice 
S ~12.892 13.484 -68.987 ~ 661 21.013 =eao 
S -12.092 13.485 -88.988 -662 21.012 =. lon 
S -12.092 13.435 -63.988 ~662 21.9012 =. Ms 
S -12.092 13.486 -68.989 ~662 21.011 -.108 
S -12.892 13.487 -68.998 ~663 21.018 -.101 
S -12.092 13.488 -68.999 » 663 21.018 -.893 
S -12.092 13.488 -68.991 ~663 21.009 ~.086 
S -12.092 13.489 -68.992 - 664 21.808 =.Urs 
S -12.092 13.499 -68.993 664 21.007 -.872 
S ~12.992 13.498 -63.993 664 21.007 -.065 
S “12.092 13.491 ~63.994 ~665 21.006 -.938 
S -12.092 13.492 -63.995 ~665 21.005 -.05¥0 
S -12.892 13.493 -68.996 6eS 21.004 -.043 
S -12.092 13.493 -68.996 - 666 21.004 -.836 
S ~12.9092 13.494 -68.997 ~ 566 21.003 -.829 
S =12.092 13.495 -63.998 - 666 21.902 -.822 
S ~12.092 13.4396 -68.999 667 21.001 -.014 
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RAY BETA THETACRAY > NORMAL Ss ALPHA2 RHO 2 





S -12.092 13.496 -63.999 - 667 21.001 -.007 
S ={2,.992 13.497 -69.800 ~667 21.9088 -. 8088 
3 -12.092 13.496 -68.999 -66r 21.001 -.007 
S -12.092 13.496 -68.999 ~567 21.001 -. 006 
5 -12.992 13.496 -63.999 ~667 21.001 -.806 
S -12.092 13.497 -68.999 ~567 21.981 =—.000 . 
2 -12.092 13.497 -69. 009 ~667 21.008 . 72804" 
S =12, 092 13.497 -69.0908 ~667 21.008 -.004 
5S =12.092 13.497 -59.008 ~667 21.800 -.993 
S "12.892 13.497 -69.008 ~667 21.000 -.602 
5 -12.092 13.497 -69.000 ~667 21.880 -.081 
S -12.092 13.497 -69.000 ~667 21.000 -.0@1 
S -12.0892 13.497 -69.000 ~667 21.000 -. 890 
5 “12.892 13.3497 -69,.2800 667 21.000 -. 6081 
S -12.092 13.497 -69. 800 ~667 21.080 -.001 
S "12.9092 13.497 -69.080 ~667 21.080 -. 091 
S -12.092 13.497 -69.0088 667 21.000 -.081 
S “12.092 13.497 -69.900 -667 21.888 -. 300 
5 “12.092 13.497 -69.3800 ~667 21.800 -.899 
S -12.092 13.497 -69.000 ~667 21.008 -.809 
3 “12.092 13.497 -69.2800 667 21.000 -.3908 
S “12.092 13.497 -69.000 -667 21.000 -.300 
S -12.9892 13.497 -69.000 ~667 21.800 -.300 
S -12.092 13.497 -69.800 ~667 21.000 -. 900 
6 -16.140 11.120 -56.623 @.800 23.377 -16.148 
6 -16.142 11.239 -66. 742 - 848 23.258 “15.519 
6 -16.140 11.359 -66.862 - 980 23.138 -14.382 
6 -16.140 11.47 <“Goiasoe ~12 23.818 -14.227 
6 -16.140 11.601 -67.104 - 160 22.896 -135556 
6 -16.140 11.723 -67.226 - 200 22.774 -12.966 
6 -16.142 11.845 -67.348 ~ 240 22.652 =12.tor 
6 -16.140 11.968 -67.471 - 280 22.529 “11.438 
6 -16.149 12.898 =6i 5.90 ~ 320 22.487 -18.683 
6 -16.140 12.213 =O 5010 - 368 22.284 =9. 916 
6 ~16.140 12.336 =6/7.339 - 480 22.161 -9.128 
6 -16.148 12.458 -67.961 ~ 448 22.9839 =3.319 
6 -16.142 12.579 -68.9882 - 480 21.918 "-7,438 
6 -16.140 12.708 -68.283 vel 21.797 -6.635 
6 -16.140 12.819 -68.322 361 21.678 -3.799 
6 -16.148 12.938 -68.441 - 601 21.559 -4. 368 
6 -16.140 13.054 -68.557 -641 21.443 =3. 935i" 
6 -16.140 13.169 -68.672 -§81 21.328 =20290 
6 -16.140 13.281 -68.734 ~72i 21.216 =2.819 
6 -16.140 13.390 -68.893 ~ 761 21.187 -1.022 
6 -16.140 13.281 -68.784 ~72i 21.2t6 =2.819 


73 











TABLE A-III (CONT) 


RAY BETR THETACRAY) NORMAL s RLPHAR2] RHO 2 
6 -16.148 13.292 -68.795 ~ 725 21.285 -15220 
6 -16.140 13.3863 -68. 806 729 21.194 = oak 
6 -16.149 13.314 -68.817 733 21.183 = ven 
6 -16.140 13.325 -68.828 737 zi,ziv2 -1.622 
6 ~16.148 13.336 -68.839 74 21.161 -1.S524 
6 -16.148 13.347 ~68.850 745 21.150 -1.424 
6 -16.148 13.358 -63.361 749 21.139 “1.324 
6 -16.148 13.369 -63.872 7I3 21.128 =e 
6 -16.149 13.389 ~68.383 fOr elon? -l7ize 
6 -16.148 13.398 -68.393 ~ 761 21.10? -1.022 
6 ~16.148 13.401 -63.904 765 21.096 =. 921 
6 ~16.146 13.412 -68.915 769 21.685 -.326 
6 -16.148 13.423 -68.926 of me 21.074 =. 15 
6 ~16.148 13.433 -68.936 «0 mr 21.864 =, 596 
6 -16.149 13.444 -68.947 ~73i 21.053 -.514 
6 -16.148 13.455 -68.958 2°85 21.042 — abe 
6 -16.148 13.465 -53.968 ~ 789 21.832 =. 389 
6 -16.1498 13.476 =63.9°9 793 21.021 -.=06 
6 -16.148 13.487 -63.989 o Oo 21.011 -.182 
6 -16.140 13.476 -68.979 0793 21.021 -.206 
6 -16.148 13.477 -63.980 793 21.829 =.195 
6 -16.140 13.473 -68.981 2794 zi.ut? =. 186 
5 ~16.140 13.479 -68.982 794 21.018 =, Las 
6 ~16.149 13.489 -63.983 734 21.917 =. 165 
6 -16.140 13.481 -68. 984 r9S 21.916 =. 1 
6 -16.148 13.482 -68.985 ~ 795 21.015 -.145 
6 -16.138 13.433 “68.936 C26 21.014 -.134 
6 -16.148 13.484 -68.987 0°96 21.013 -.124 
6 -16.140 13.485 -63.983 °96 21.612 -~.114 
6 -16.148 13.487 ~68.9389 «Ga 21.010 -.163 
6 -16.149 13.488 “63.991 79? 21.9069 -. 893 
6 ~16.149 13.489 -68.992 ~° 98 21.088 -.033 
6 -16.14@ 13.490 -68.993 798 21.007 -.072 
6 -16.148 13.491 -68.994 ~798 21.006 -.362 
6 -16.140 13.492 -63.995 «too 21.805 -.a35e2 
6 -16.140 13.493 -63.996 0799 21.004 -. 01 
6 -16.148 13.494 -68.997 - 8286 21.063 -.931 
6 ~16.140 13.495 -63.998 - 300 21.002 -.¥21 
6 -16.140 13.496 ~68.999 - 880 21.601 -.910 
6 -16.148 13.495 -68.998 - 889 21.062 = Otel 
6 ~-16.148 13.495 -68.998 - 800 21.9802 -.920 
6 ~-16.1498 13.495 ~63.998 8060 21.002 -.019 
° -16.140 13.495 -68.998 - 888 21.082 -.013 
6 -16.148 13.495 -68.998 308 21.002 = SOL 
6 ~16.148 13.495 -63.998 - 880 21.002 -.015 
6 -16.1498 13.496 =66. 579 - 388 21.061 -.914 
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RAY BETA THETACRAY>) NORMAL $ ALPHA] RHO 2 
6 -16.148 13.496 -63.999 - 868 21.001 =. ols 
6 -16.148 13.496 ~58.999 . 380 21.081 =.Gl2 
6 -16.148 13.496 -68.999 . 308 21.061 =o 11 
6 ~16.148 13.496 “63. 999 - 806 21.001 =.210 
6 -16.148 13.496 -63.999 . 308 21.061 -. 909 
6 -16.146 13.496 -68.999 - 388 21.9@1 -.368 
6 -16.148 13.496 -68.999 - 361 21.8661 =.o0 7 
6 -16.146 13.496 -68.999 - 861 21.861 -.0806 
6 -16.148 13.497 -68.999 - 881 21.661 -. 00S 
6 “16.148 13.497 -69. 066 - 861 21.660 -.uG4 
6 -16.148 13.497 -69. 668 - 361 21.068 -.083 
6 -16.149 13.497 -69. 8660 - 361 21.888 -.8862 
6 ~16.146 13.497 -69.088 - 361 21.0088 -.261 
6 -16.148 13.497 -69.666 - 8361 21.068 -. 060 
4 -21.114 16.9888 =65.991 6.880 24.489 “21.114 
eC 21.114 19.246 -65.749 047 24.251 -20.394 
a. “21.114 18.406 -65.909 ~ 893 24.8691 “19,547 
¢ 21.114 18.578 -66.873 ~ 148 23.927 —13.372 
ir -21.114 16.736 -66.239 -187 23.761 -13.068 
if 21.114 16.9985 -66.488 -234 asove =[7 cos 
¢ -21.114 11.876 -66.579 - 288 23.421 =1625566 
¢ 21.114 11.249 “66.752 2327 23.248 -15.465 
c “21.114 11.424 -66.926 0374 23.674 -14.931 
c =21.114 11.686 -67.183 - 420 22.897 =13..Se0 
c “21.114 11.778 -67.280 467 22.728 -12.950 
c -21.114 11.956 -67.4359 -514 22.541 =115500 
e 21.114 lacloo -6°.637 ~ 561 ceases -10.4198 
7 ~21.114 12.313 -67.816 ~ 667 22.184 = 95 er > 
ie -21.114 12.491 -67.994 ~654 22.686 -3.897 
¢ “21.114 12.667 -68.170 ~ 781 21.8336 -§.872 
ic -21.114 12.341 -63.344 0747 21.656 -3.399 
ie 21.114 13.812 -63.515 794 21.485 -4.277 
ic -21.114 13.179 -68.682 - 341 21.318 -2.904 
¢ -21.114 13.341 -68.344 - 388 21.156 -1.479 
ic 21.114 l3.1¢9 -68.682 341 21.3183 -2. 364 
¢ ~21.114 13.195 -63.698 » 8346 21.382 -2.7°64 
¢ “21.114 13.212 -68.715 - 858 21.285 -2.623 
¢ -21.114 13.228 ~68.731 .355 21.269 -2.482 
¢ -21.114 13.244 -68. 747 - 368 21.253 -2.340 
¢ -21.114 13.260 -68.763 - 864 21.237 -2.133 
¢ “21.114 ls.2¢7r -638. 730 - 869 21.226 -2.055 
i ~21.114 13.293 “68.796 874 21.204 =e 
¢ “21.114 13.389 -63.312 .378 21.1388 =l0o5 
ic “21.114 ls.aen -63.823 - 333 21.172 “1.624 
¢ 21.114 13.341 -68.844 - 3888 21.156 -1.479 
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RAY BETA THETACRAY) NORMAL $s ALPHA2] RHO 2 
? “21.114 13.357 -653.3860 392 21.140 eo 
? “21.114 13.373 -68.376 soe 21.124 =o 
c “21.114 13.338 -68.391 302 21.109 “1.041 
c w2l.t14 13.404 -68.907 906 21.093 =s-4 
7 “21.114 13.420 -68.923 sit 21.077 -.745 
G “21.114 13.435 -69.93¢ 916 21.062 = 
¢ “21.114 13.451 -68.954 ~ 320 21.046 -.44% 
¢ “21.114 13.466 -63.969 ~925 21.031 -. 300 
¢ “21.114 13.482 -68.985 » 930 21.015 =. 150 
¢ sel.ii4 13.497 -69.6800 » 934 21.008 -.000 
8 -27.265 8.626 -64.129 9.980 25.871 -2(.200 
8 -27.265 8.320 -64.323 -953 en.oce ~-26.493 
8 “20 «con 9.821 -$4.524 107 25.475 “25.931 
8 -27.265 9.229 -64.732 168 25.268 -24.327 
8 ~-27.265 9.444 -64.947 e214 23.053 -23.923 
8 "27.265 9.665 -55.168 ~ 267 24.832 -22.386 
8 -27.265 9.394 -65.397 320 24.683 =21). 991 
3 -27.265 10.129 -65.632 374 24.368 -20.925 
8 -27.265 10.371 -65.874 »427 24.126 “19. si2 
8 -27.265 10.520 -66.122 ~ 480 23.878 “13.534 
8 -27.265 10.374 =bo crn 534 23.623 -17.337 
8 =2( 6200 11.134 -66.637 587 23.363 “16.067 
8 -27.265 11.398 -65.901 641 23.099 -14.669 
8 -27.265 11.565 =o7. Lo ~694 22.831 -13.138 
8 27.265 11.936 -67.439 747 22.561 =1 Rae 
8 -27.265 12.208 -67.71i1 80 22.289 — Pe 20 1 
8 27.265 12.478 -67.931 854 22.019 “8.134 
8 -27.265 12.745 -§3.248 - 988 zi. ae2 “6 e@il 
8 ~27.265 13.006 -68.509 961 21.491 -4.326 
8 ~27.265 13.258 -68.761 1.014 21.239 -2.<224 
8 -27.265 13.006 -68. 509 ~961 21.491 “4.326 
8 -27.265 13.931 -68.534 966 21.466 “4.121 
8 ~27.265 13.057 -68.560 -972 21.440 =-3, co) 
8 -27.265 13.082 -68.585 977 21.415 -3.7088 
8 -27.265 13.1088 = Bele Git » 982 21.389 -3.500 
8 ~27.265 13.133 -68.636 988 21.364 -3.299 
8 -27.265 13.158 -68.661 0993 21.339 =3.0"9 
8 -27.265 13.133 -68.686 ~ 998 21.314 -2.867 
8 27.265 13.208 -68.711 1.004 21.289 -2.654 
8 27.265 13.233 -68.736 1.009 21.264 -2.448 
8 ~27.265 13.258 -68.761 1.014 21.239 “21a 
3 -27.265 13.282 -68.785 1.820 21.215 -2.067 
8 27.265 13.307 -68.810 1.025 21.190 -1.78¢ 
8 27.265 13.331 -68.834 1.030 21.166 “1.570 
8 ~27.265 13.3355 -68.858 1.9836 21.142 ~l. 304? 
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RAY BETA THETACRAY> NORMAL S ALPHA2 RHO 2 
3 -27.265 13.373 -68.882 1.941 21.118 =la her 
3 -27.265 13.483 -63.996 1.946 21.994 -.9084 
3 ~-27.265 13.427 -68. 939 1.852 21.070 =. 660 
3 -27.265 13.450 -68.953 1.957 21.847 -.— 50 
8 -27.265 13.474 -63.977 1.862 21.923 -.223 
8 -27.265 13.458 -68.953 1.957 21.947 -.455 
3 -27.265 13.453 -68.956 1.9058 21.944 - ™iS2 
8 -27.265 13.455 -68.958 1.858 21.942 -.489 
8 -27.265 13.457 “68.968 1.959 21.048 -.337 
3 -27.265 13.4659 -68.963 1.959 21.937 -.364 
3 -27.265 13.462 -68.965 1.969 21.935 -.341 
3 -27.265 13.454 -63.967 1.969 21.933 -.319 
3 -27.265 13.467 -68.979 1.061 21.039 =.270 
8 -27.265 13.469 -68.972 1.061 21.828 =e 
3 -27.265 13.471 -68.974 1.962 21.926 = ot 
3 “27.265 13.474 -68.977 1.862 21.023 -.223 
8 -27.265 13.476 -68.979 1.063 21.021 -.205 
8 -27.265 13.478 -63.981 1.963 21.019 -.192 
3 -27.265 13.481 -68. 984 1.064 21.016 -.169 
3 -27.265 13.483 -638.986 1.065 21.814 =. 147 
3 ~-27.265 13.485 -68.988 1.865 21.912 ~.114 
3 -27.265 13.488 =660.. 99" 1.966 21.9089 =, B91 
3 -27.265 13.499 -63.993 1.966 21.807 = 05° 
3 -27.265 13.492 =63. 970 1.967 21.805 -.046 
3 -27.265 13.495 -68.998 1.967 21.902 -.823 
3 -27.265 13.492 -568.995 1.067 21.905 -. 845 
8 -27.265 13.493 -68.996 1.067 21.904 -.343 
3 “27.265 13.493 -68.996 1.067 21.3804 -.941 
8 -27.265 13.493 -68.996 1.067 21.004 =.032 
3 -27.265 13.493 -68. 996 1.867 21.004 -.037 
3 -27.265 13.494 =69.99'7 1.967 21.983 -.934 
8 -27.265 13.494 -68. 997 1.067 21.803 -.032 
8 -27.265 13.494 -68.997 1.067 21.903 -.939 
8 -27.265 13.494 -68.997 1.967 21.803 -.827 
8 “27.265 13.494 -68.997 1.9067 21.983 -.925 
3 "27.265 13.495 -63.998 1.967 21.802 -.923 
3 ~-27.265 13.495 -68.998 1.067 21.0902 -.021 
8 -27.265 13.495 -68.998 1.967 21.092 -.913 
8 “27.265 13.495 -63.998 1.967 21.9802 -.016 
3 ~-27.265 13.496 =60.992 1.967 21.001 -.814 
8 -27.265 13.496 -68.999 1.967 21.3801 -.@11 
3 -27.265 13.496 -68.999 1.968 21.891 -. 099 
3 “27.265 13.496 -68.999 1.868 21.901 -.087 
3 -27.265 13.497 “59.909 1.968 21.909 -.005 
3 ~-27.265 13.497 -69.9089 1.863 21.009 -.802 
3 =2(.a00 13.497 -69.9089 1.968 21.909 =s00S 
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TABLE A=-III (CONT) 


RAY BETA THETACRAY > NORMAL s ALPHAR2 RHO 2 
3 -27.265 13.497 -69.008 1.968 21.800 -.404 
8 -27.265 13.497 -69.9909 1.968 21.089 -.304 
3 -27.265 13.497 -69.9009 1.368 21.009 -.0G4 
8 =2(.200 13.497 -69.0909 1.368 21.009 -. 3464 
3 ~27.265 13.497 -69.009 1.968 21.009 -.403 
3 -27.265 13.497 -69.9009 1.868 21.0909 -.883 
3 ~27.265 13.497 -69.989 1.063 21.009 -.403 
8 -27.265 13.497 -69.0090 1.968 21.909 -.3803 
8 ~27.265 13.497 -69.909 1.068 21.969 -.4383 
3 ~27.265 13.497 -69.900 1.968 21.999 -.082 
8 ~27.265 13.497 -69.000 1.968 21.900 -. 482 
s -27.265 13.497 -69.909 1.968 21.009 -.902 
8 =e 1200 13.497 -69.0909 1.968 21.909 -.4@2 
8 727.265 13.497 -69. 909 1.968 21.999 -.091 
8 -27.265 13.497 -69.0090 1.968 21.9090 -.301 
3 -27.265 13.497 -69.0909 1.2968 21.3999 -. 861 
3 =2f .265 13.497 -69.809 1.968 21.000 -.301 
8 -27.265 13.497 -69.999 1.068 21.999 -.398 
3 ~27.265 13.497 -69.999 1.968 21.999 -. 000 
9 -34.365 6.562 -62.965 9.999 27.935 ~34.305 
2 -34. 865 6.769 -62.272 - 969 27.728 ~34.142 
? ~34.865 6.3789 -62.492 ~129 27.598 -33.368 
2 -34.365 ?.22l “62.724 189 27.276 “322037 
9 -34.865 7.467 -62.3790 249 27.839 -~31.549 
2 -34.365 vyeres8 -63.231 - 399 26.769 -30 623 
2 -34.865 8.904 -63.35907 - 360 26.493 -29.661 
2 -34.865 3.296 “63.799 ° 429 26.201 ~23.547 
2. -34.865 3.606 -64.199 489 25.391 =2i pa. 
9 -34.865 8.3935 -64.437 S41 25.563 -26.032 
9 -34.865 9.282 -64.785 691 25.215 -24.608 
2 -34. S865 9.648 -65.151 ~ 661 24.849 -23.054 
2 -34. 865 19.034 "65.537 ~72t 24.463 “21.356 
9 -34.S865 10.439 -65.942 078i 24.958 =1l3.22. 
9 -34.865 19.861 -66. 364 841 23.636 “17.852 
9 -34. 865 (11.298 -66.8901 ~901 23.199 -15.204 
9 -34.865 11.747 -67.259 ~ 961 22.759 ele. (air 
9 -34.865 12.2901 -67.704 1.921 22.296 -9,.993¢ 
9 ~34. 865 12.652 -68.155 1.981 21.845 -6. 380 
9 -34. 865 13.489 “68.5932 1.141 21.493 -3.656 
g -34.8605 12.652 “63. {SS 1.031 21.8345 -5. 989 
2 -34.865 12.696 “98.199 1.987 21.3901 -6.662 
2 -34.365 12.741 -63.244 1.893 21.756 =-6.341 
2 -34.365 12.°85 -63.288 1.999 2i.7i2 -§.G016 
9 -34.365 12.329 -§8.332 1.195 21.668 -5.689 
2 -34. 865 12.373 -68.376 Leet 21.624 -5.358 
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RAY BETA THETACRAY) NORMAL s ALPHA2 RHO < 
9 -34.865 12.916 -63.419 Lee) 7 21.3531 -5.024 
2 -34.865 12.3690 -53.463 1.123 elsos¢ <2. OC 
2 -34.365 13.9983 -58.506 Leohed 21.494 ~4.347 
9 -34. 865 13.946 ~68.549 1.1735 21.451 -4.093 
3 -34.8365 13.9089 -68.3592 1.141 21.408 -3.556 
9 ~34.865 13.131 -63.634 1.147 21.366 —-3. ae 
3 -34.365 13.173 -68.676 1.133 21.324 £0 06 
9 -34.865 13.215 —96.¢1¢ 1.159 21.232 ee ee] 
2 ~34.365 13.256 -68.759 1.165 21.241 “Zc. 
2 -34.865 l3eeor -58. 3809 ee 1 21.289 “1.371 
9 -34.865 13.338 -63.341 Lal 7 21.159 "1.594 
2 -34.865 13.378 -68.3381 1.183 21.119 “1.233 
2 -34.865 13.418 -68.921 1.139 CA) ed =a o> 
9 -34.865 13.4358 -63.961 la195 21.939 =, 321 
2 -34.365 13.413 -68.921 1.189 21.979 =. a? 
9 -34.865 13.422 -68.925 1.199 21,97 =aaee | 
2 -34.865 13.426 -68. 929 1.190 21.071 -~.524 
2 34.865 13.439 ~863.933 lwo tl 21.067 -.9o¢e 
2 -~34.365 13.434 "63.937 1.132 21.863 -.663 
9 -34.3865 13.433 -93. 941 1.192 21.959 — org 
9 -34.865 13.442 -§3.945 1.193 21.9355 =s19' 533 
9 ~34.865 13.446 93.949 12193 21.9351 -~.495 
3 34.865 13.459 -68.9353 1.194 21.047 - 450 
3 ~34.865 13.454 ~68.957 1.195 21.943 =.312 
3 ~34.365 13.458 -63.961 1.195 21.939 =.351 
2 -34.865 13.462 -68. 963 1.196 21.935 -. 343 
3 -34.865 13.466 =693. 769 le 96 21.931 =~ 2135 
9 -34.365 13.4798 -68.973 Lo19?¢ 21.827 -se0¢ 
2 -34.365 13.474 “63.977 1.198 21.023 = ea 
9 -34.365 13.473 “68.961 12133 21.019 = | 
2 -34.365 13.491 -58.984 1.199 21.016 -.1353 
2 -34.865 13.435 -68.938 a 21.9012 =a 
3 -34.865 13.489 -68.992 1.200 21.908 ~. Or 
2 -34.3865 13.493 68.996 1.201 21.004 =~ Ja30 
9 -34.865 13.489 =Sc. 992 1.200 21.908 ~so0r 
9 -34.865 13.499 -68.993 1.239 21.907 -.ors 
2 -34.865 13.499 =68\, 293 1.200 21.007 -.069 
9 ~34.365 13.499 -68.993 1.269 21.007 =e. 
5 ~34.865 13.491 -68.994 1.200 21.006 ~. 06 | 
2 -34.865 13.491 “68.994 1.200 21.006 -.95? 
3 -34.855 13.492 -63.995 1.200 21.805 -.954 
2 -34.865 13.432 -58.995 1.200 21.895 -.958 
9 34.355 13.492 -63.995 1.2901 21.095 -~.045 
9 -34.865 13.493 -53.996 1.201 21.984 ~. 042 
2 -34.365 13.493 ~68.996 1.201 21.904 -.938 
2 -34.865 13.494 “63.997 1.201 21.803 -.934 


TABLE A-III (CONT) 


7s 








TABLE A=-III (CONT) 


RAY BETA THETACRAY> NORMAL S ALPHAR2 RHO 2 
9 -34.365 13.494 “68.997 1.201 21.803 -.931 
9 -34.865 13.494 -68.997 1.201 21.883 -.@27 
9 “34.865 13.495 -63.998 1.201 21.002 =e 
3 -34.865 13.495 -63.998 1.201 21.802 = B19 
9 -34.865 13.495 -63.998 1.201 21.802 -.015 
9 -34. 865 13.496 -68.999 1.201 21.001 -.811 
2. -34.365 13.496 -68.999 1.201 21.001 -.883 
9 -34.865 13.497 -69.000 1.201 21.8088 -.004 
9 "34.365 13.496 -63.999 1.201 21.001 -.483 
9 -34.365 13.496 53.999 1.201 21.001 -.087 
9 "34.8585 13.496 -68.999 1.201 21.001 we 22) 
9 -34. 865 13.496 =66. 999 1.201 21.001 -.007 
9 "34.865 13.496 -68.999 1.201 21.001 -.@06 
9 -34. 865 13.496 =68. 999 1.201 21.001 -. 006 
2 “34.865 13.496 “68.999 1.201 21.001 -.0805 
9 -34. 865 13.497 “68.999 1.201 21.001 -.005 
9 “34.865 13.497 -69.888 1.201 21.800 -.385 
9 “34.865 13.497 -69.08@ 1.201 21.8008 -.004 
9 -34.365 13.497 -69.008 1.201 21.008 -.304 
9 -34.365 13.497 -69.08@ 1.201 21.808 -.983 
9 -34.865 13.497 -69.00890 1.201 21.008 -.9883 
9 -34.865 13.497 -69.008 1.201 21.800 -.983 
S -34.865 13.497 -69.809 1.201 21.808 -.802 
2 -34. 865 13.497 -59.00@ 1.201 21.880 -.862 
9 -34.865 13.497 -69.8008 1.201 21.000 -.002 
9 -34.365 13.497 -69.808 1.201 21.008 =.401 
S -34.865 13.497 -69.000 1.201 21.800 -.0@1 
9 -34.865 13.497 -69.0808 1.201 21.008 -. 800 

19 “44.118 3.748 -59.243 8.808 38.757 -44.118 
19 “44.118 3.999 -359.402 ~ 867 38.598 -43.628 
19 “44.118 4.071 -39.574 ~ 133 38.426 "43.2876 
18 “44.118 4.259 -59.762 - 288 38.238 -42.432 
18 -44.118 4.463 -59.966 2267 30.834 41.329 
10 “44.118 4.688 =60. 191 » 334 29.889 -41.1069 
18 “44.118 4.935 -68.438 - 488 29.562 “48.3190 
18 -44.118 5.298 -60.711 ~ 467 29.289 -39.428 
18 “44,118 S-Sil “61.014 534 28.986 -33.423 
10 “44.118 3.848 “61.351 ~ 681 28.649 =S7e205 
18 ~44.118 6.226 =-61./29 ~667 28.271 -36.021 
10 -44.118 6.650 “62.153 ~ 734 27.347 =348 2 
18 “44.118 7.128 "62.631 - 301 27.369 =32.373 
18 “44.118 7-669 =63.l72 . 868 26.3283 - 38.9909 
18 -44.118 8.283 “63.786 934 26.214 -28.606 
10 “44.118 8.978 -64.481 1.001 25.519 -25.356 
10 “44.118 9.763 "65.266 1.068 24.734 "22.556 











TABLE A-III (CONT) 


RAY BETA THETACRAY) NORMAL S ALPHA] RHO 2 
19 -44.118 19.638 ~66.141 1.134 23.859 -18.544 
19 ~44.118 112596 -67.892 1.201 <2. 998 =13.615 
19 -44.118 12.574 -58.077 1.268 21.923 =e 
1@ -44.113 11.599 -67.992 1.2901 22.908 -13.613 
19 -44.118 11.638 =67% sia) 1.298 22.809 -13.¥865 
12 ~44.118 11.786 ~67.289 1.215 22.711 -12.5@1 
19 -44.118 11.884 ~57.387 1.221 22.613 =). 325 
19 -44,118 11.933 -57.4856 1.228 22.514 -11.336 
10 -44.113 12.982 =67a590 1.235 22.415 -10.735 
10 -44.118 12.131 -67.684 1.241 22.316 -19.120 
19 -44.113 12.279 =6ins) Om 1.248 22.218 ~9.492 
19 ~44,.118 12.378 ~67.881 1.255 22.119 -3.351 
19 -44.118 12.476 "60909 1.261 22.821 -8.196 
19 ~-44.118 12.574 -68.077 1.268 21.3923 =( awet 
19 ~44.118 12.671 -68.174 1.275 21.326 -5.843 
19 -44,.118 12.767 ~68.279 1.281 21.730 -6.145 
19 -44.113 12.863 -68.366 1.288 21.634 =-5. 431 
19 ~44.118 12.938 -58.461 1.295 21.539 -4.793 
19 ~44.118 13.9351 -68.554 1.3901 21.446 -3.9359 
10 -44.113 13.144 -68.647 1.398 21.393 ~3.199 
19 -44.118 13.235 -63.738 1.315 21.262 ~2.424 
19 -44.118 13.2324 -63.827 1.321 21.173 -1.632 
19 -44.118 13.411 -68.914 1.328 21.086 -.324 
19 -44,118 13.324 ~-68.827 1.321 21.173 -1.632 
19 -44,118 13.333 -63.836 1.322 21.164 -lescec 
19 -44.118 13.342 -68.845 1.323 21.155 “1.472 
19 -44.118 13.3590 -§3.853 1.323 21.147 -1.392 
19 ~44.118 13.359 -68.862 1.324 21.138 =l1.311 
19 -44.118 13.268 -68.371 1.325 21.129 -1.239 
19 ~-44.118 13.3°7 -68.889 1.325 21.129 -1.149 
19 ~44,.118 13.385 -68.388 1.326 21.112 -1.06¢ 
12 ~44.118 13.394 -683.897 1.327 21.193 =. 260 
12 ~44.118 13.493 -68. 906 1.327 21.994 -. 906 
10 -44.118 13.411 ~68. 914 1.328 21.986 -.824 
19 ~44.118 13.429 -63.923 1.329 21.077 -.7 43 
12 -44.118 13.429 -68. 932 1.329 21.968 -.661 
19 ~44.118 13.437 -58.949 1.330 21.962 =~ Jo" 2 
19 ~44,118 13.446 68.949 1.331 21.951 ~.497 
19 -44.118 13.455 =66ec07 1.331 21.043 -~.414 
19 -44.118 13.463 -68.966 1.332 21.934 -. 332 
19 -44,118 13.472 ~68.975 1.333 21.925 ~.249 
19 ~44.118 13.489 -58. 983 1.333 21.9017 -.166 
19 ~44,.118 13.489 ~63.992 1.334 21.008 -~.983 
19 ~44.118 13.4890 -68.983 1.333 21.9017 -.165 
19 ~44,118 13.481 -98.984 1.333 21.016 -.158 
19 -44,118 13.482 -68.985 1.333 21.9015 -.150 
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TABLE A-III (CONT) 


RAY BETA THETACRAY) NORMAL S ALPHA2 RHO cz 
1@ -44.113 13.483 -38. 986 1.334 21.914 -.141 
1@ -44.118 13.483 -68. 986 1.334 21.014 -.133 
19 -44.113 13.484 -63.987 1.334 21.813 =e be 
19 -$4.118 13.485 -68.988 1.334 21.012 eae ie 
19 -44.118 13.486 -68.989 1.334 21.011 -.188 
10 -44.118 13.487 -638.999 1.334 21.019 -.100 
19 -44.118 13.438 -68.991 1.334 21.909 =, 091 
19 -$4.113 13.4389 -68.992 1.334 21.008 -.983 
19 -44.118 13.489 -63.992 1.334 21.998 =a 
19 ~-44.118 13.490 -68.993 1.334 21.987 -.067 
19 -44.118 13.491 -68.994 1.334 21.906 -.958 
19 -44.118 13.492 -68.995 1.334 21.605 -.350 
19 -44.118 13.493 -63.996 1.334 21.984 -.042 
19 -4$4.118 13.494 =63.997 1.334 21.9003 -.933 
19 -44.118 13.495 =65. 279° 1.334 21.003 -.825 
19 -44.113 13.495 -68.998 1.335 21.8982 -.017 
19 -44.118 13.496 “68.999 1.335 21.9901 -.988 
19 “44.113 13.496 -68.999 1.335 21.901 -.398 
19 -44.118 13.496 ~oa.o992 1.335 21.901 -.007 
19 “44.118 13.496 -68.999 1.335 21.9901 -.987 
19 -44.113 13.496 =65. 999 1.335 21.0901 -.906 
19 -44.113 13.497 =63.999 1.335 21.001 -.995 
19 “44.113 13.9497 -59.9900 1.335 21.999 -.004 
19 -$4.118 13.497 -69.909 1.335 21.009 -. 603 
19 “44.118 13.497 -69. 909 1.335 21.9000 -.002 
19 -44.113 13.497 -69.009 1.335 21.000 -.002 
19 -44.118 13.497 -69.909 1.335 21.909 -.901 
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TABLE A-IV 


SECOND SURFACE COORDINATE (X,Y) VALUES, S, ALPHA2 AND 

RHO2 FOR THE FAMILY OF SURFACES IN FIGURES 17 AND 18. 

THE COLUMN LABELED BEGIN RAY CORRESPONDS TO THE FAMILY 
MEMBER. 








Ben Next “surf Ysurf S Al pha2 RHO 2 
RA RAY (next) Cnext>d (next> Cnextd (next ) 
1 1 - 362 - 808 ©133 21.000 -.000 
1 2 649 119 0133 21.201 -1.880 
1 3 708 eel wise 21.466 “4.122 
1 4 1.220 0333 130 21.324 -6.331 
1 5 1.504 ~ 447 oles 22.321 ~10.147 
1 6 1.736 963 118 23.024 ~1¢4.262 
1 7 2.867 682 107 24.043 -19.425 
1 8 2.344 8905 090 2$.538 -25.934 
1 9 2.616 936 - 866 27.707 -34.070 
1 10 2.882 1.876 - 830 30.688 -43.901 
2 2 ~?a4 - 800 267 21.201 -.000 
2 3 1.010 eltt 266 21.228 “2.125 
2 4 1.296 222 269 21.338 -4.593 
2 S Ll wal - 334 262 21.973 =f care 
Z 6 1.365 ~ 449 e256 22.693 -11.868 
2 c 2.146 2366 248 23.542 -16.978 
2 8 2.425 637 234 24.971 ~=Z23eut ¢ 
2 9 2.699 ~315 e2l2 27.147 -32.074 
2 190 2.967 9353 clr? 38.388 “42.677 
Ss 3 1.086 - 800 - 400 21.228 -.000 
3 4 1.372 elll 0 339 21.262 -2.420 
3 Ss 1.658 ~222 2 3398 21.833 -5.420 
3 6 1.943 390 394 22.180 et ei enaahk 
3 ? 2.226 - 450 3383 23.9021 -14.243 
3 3 2.506 3790 corr 24.3354 -20.865 
3 9 2.782 ~695 3358 26.502 -29.695 
3 18 3.9052 3829 0329 23.826 -41.164 
~* 4 1.449 - 880 - 334 21.262 -.300 
4 Ss 1.734 elit evse 21.307 -2.310 
+ 6 2.820 ~223 S31 21.766 “6.414 
4 ? 2. 304 - 336 ower 22.4393 -11.208 
4 3 2.586 » 4353 318 23.698 “17.790 
e 9 2.364 avs - 504 23.766 -26.849 
4 190 3.136 ~ 706 478 23.242 -39.268 
2 S 1.811 - 8098 -667 21.307 -. 2000 
S 6 2.096 elll - 666 21.371 -3.349 
5 ‘e 2.382 ee3 - 664 21.978 -7.349 
Ss 8 2.665 337 653 23.9011 -14.189 
Ss 9 2.946 4357 647 24.932 -23.412 
S 10 3.220 984 ~-626 23.510 -36.8332 
6 6 2-i¢3 - 800 - 301 21.371 -. 008 





TABLE A-IV (CONT) 


= a 








Begin Next Xsurf Ysurf S$ Alpha2 RHO 2 
Surf Surf Cnext >? Cnext) Cnext d Cnext ¢next>d 
6 7 2.458 ant tz 799 21.469 -4.143 
6 8 2.743 ~224 796 22.313 ~18.099 
6 9 3.826 - 348 789 24.882 “19.227 
6 13 3.383 - 463 eors 27.578 -33.0615 
? ? 2.535 . 888 934 21.469 -.8890 
7 9 3.1085 225 928 22.996 ~14.107 
8 3 2.397 - 988 1.868 21.6534 -. 888 
3 9 3.182 ovis 1.064 21.971 -7.355 
8 19 3.465 seat 1.859 24.343 -23.829 
9 9 3.259 - 888 1.281 21.971 -. 808 
9 10 3.543 ~ii¢ 1.196 22.986 -14.¢851 
18 18 3.622 88a L.cow 22.986 -. 681 
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TABLE A-V 


COMPARISON OF THE MAXIMUM ALLOWED LENGTH OF THE RAY IN 


THE LENS QA AND THE ACTUAL VALUE USED Sua? HOR GACH 
N 


SURFACE IN FIGURES 17 AND 18. ALPHA2 AND RHO2 ARE eas. 
VALUES AT S 








MAX* 

RAY QA Smax Ripha2 RHO 2 
i «133 wise 21.989 -.0299 
2 267 267 21.291 -.309 
3 - 499 - 409 21.228 -. 899 
4 2534 ~ 934 21.262 -. 909 
3 667 667 21.307 -, 999 
6 ~801 891 2l.3r. -. 902 
? 0934 - 934 21.469 -. 099 
3 1.968 1.068 21.634 ~. 889 
9 1.291 1.201 21.971 -.999 

18 1.335 l.sss 22.986 -.2901 











TABLE A-VI 


CALCULATED VALUES OF S AND ALPHA2 USED TO CONSTRUCT 


THE DESIGN CHART IN 


FIGURE 19 FOR THE FINAL DESIGN 


OF SURFACE NUMBER 1 in FIGURE 20. 

RAY BETA THETACRAY >) NORMAL $ ALPHA2 RHO 2 
1 -1.697 13.317 -68.329 8.309 21.189 =1,.697 
1 = hear 13.326 -63.829 387 21.171 -1.614 
1 =1.697 13.335 -68.333 -813 21.162 =1.930 
1 -1.697 13.344 -68.847 829 ai. too -1.447 
1 =1.697 13.354 -68.856 ~927 21.144 -1.363 
1 =1.697 13.363 -68.366 - 933 21.134 “ligt 
1 =1,697 13.372 -683.375 349 21.125 =12155 
1 -1.697 13.381 -63.884 347 Zioure - {at 
1 =1.697 13.390 -63.393 853 21.187 -1.d27 
1 =(.697 135399 -63.982 - 969 21.898 -. 342 
1 -1.697 13.498 -68.911 Q67 21.889 -.SoF 
1 =1.69r 13.417 -58.929 - 873 21.988 =e 
1 =1.697 13.426 -63.929 - 339 21.871 -.637 
1 =1.697 13.435 -68.938 - 837 21.862 -.002 
1 =l,0 97 13.444 -68.947 993 21.853 = ee 
1 =. ooc 13.4353 -68.956 - 189 21.844 -.431 
1 =1.697 13.462 -68. 965 107 21.835 -.345 
1 =1.697 13.471 -58.974 Als: 21.826 -.222 
1 =laioor 13.479 -68.982 -129 21.813 = se 
: =1.697 13.4388 -63.991 127 21.989 -.837 
1 =1..697 13.479 -63.982 128 21.013 « lias 
1 =1.697 13.439 -63.933 121 21.917 -.164 
1 a la Gur 13.431 -68.984 121 21.916 -. 35 
1 Sloot 13.482 -93.985 122 21.815 =, ae 
1 =1.637 13.483 -68. 986 123 21.814 =. t3 
1 =1. 697 13.484 -638.987 2123 21.9813 -. 120 
1 =1..69¢ 13.485 -53.3938 124 21.812 =. lel 
: =—1.697 13.486 -68.989 2125 21.a11 ~. iz 
1 -1.697 13.486 -68.389 2125 21.911 -.104 
1 =1.697 13.487 -$8.990 ~126 21.818 -.895 
1 -1.697 13.488 -68. 991 127 21.809 -. 037 
1 -1.697 13.489 -68.992 2127 21.998 -.873 
1 =1.697 13.499 -63.993 128 21.907 -.869 
1 =1.697 13.491 -63.994 2129 21.996 -.@61 
1 =1.697 13.492 =65. 990 129 21.9985 -.852 
1 =|. 697 13.493 -68.996 - 139 21.994 -.843 
1 =1.69r 13.494 -68.996 stot 21.004 -.835 
1 =1.697 13.494 =65. 29¢ e131 21.883 -. 826 
1 -1.697 13.495 -63.998 ~132 21.982 -.917 
1 le o9C 13.496 -638.999 2133 21.0@1 -.3389 
1 =-1.697 13.495 -93.998 132 21.982 =.Ul7 
1 -1.697 13.495 -68.998 o132 21.862 -.91lo5 
1 =1.637 13.495 -63.998 132 21.902 -.816 
1 =r 13.496 -63.999 2132 21.9081 -.013 
1 -1.697 13.496 -63.399 ~132 21.9081 -.@14 
1 =12697 13.496 -68.999 ~132 21.981 =.013 











TABLE A-VI (CONT) 


RAY BETA THETACRAY > NORMAL S ALPHR2 RHO 2 
1 -1.697 13.496 “68.999 2133 21.001 -.012 
1 -1.697 13.496 =6S. 999 2133 21.061 =. 0117) 
1 =15697 13.496 -63. 999 133 21.001 -.018 
1 =1.697 13.496 -63.999 2133 21.001 -.018 
i =1.697 13.496 =63.077 2133 21.001 -.@09 
1 = inoor 13.496 =66..999 2133 .21.0@1 -. 0038 
1 =1.697 13.496 69. 999 2133 21.001 -.007 
1 = hear 13.496 =69.999 133 21.001 -. 806 
1 acon 13.497 -68.999 2133 21.001 -.305 
1 alo 6or 13.497 -69. 000 133 21.800 -. 004 
1 =1.697 13.497 ~69. 086 2133 21.000 -. 003 
1 1.697 13.497 -69.080 133 21.000 -.003 
1 -1.697 13.497 -69. 800 133 21.800 -.@02 
1 =1.697 13.497 -59.000 2133 21.080 -. 001 
1 micooe 13.497 -69. 000 133 21.800 -.802 
1 =1.697 13.497 -63.000 2133 21.800 -.0@02 
1 =1.697 13.497 -69.000 2133 21.000 -.902 
1 =1,697 13.497 -69.008 2133 21.008 -.@001 
1 =1s6or 13.497 -69.000 133 21.9800 -.601 
1 =|.697 13.497 -59.800 2133 21.900 -.3@1 
1 ale & SC 13.497 -69.000 133 21.0880 -.@0@1 
1 =1.697 13.497 -53. 2800 2133 21.000 -.001 
1 al. Gor 13.497 -69.00@ 133 21.000 -.@01 
1 =1.697 13.497 -59. 000 133 21.000 -.0@1 
1 =1.69¢ 13.497 -37.006 133 21.800 -. 001 
1 =—1.697 13.497 -69. 808 2133 21.000 -.001 
1 =1)..097 13.497 -69. 0800 133 21.000 -. 801 
1 =-1.997 13.497 -69.800 133 21.808 -.0@1 
1 -1.697 13.497 -59.000 133 21.000 -.0@1 
1 Sle oo 7 13.497 -69.800 133 21.008 -. 008 
i =1.697 13.497 -59.0800 133 21.806 -.0@2 
1 =1.697 13.497 -69.000 133 21.0800 -.900 
1 =1.697 13.497 -69.000 ~133 21.008 -.000 
1 =1.697 13.497 -69. 080 2133 21.000 -. 800 
2 -2.373 13.241 -68.743 8.880 21.257 -2.373 
2 =2.373 13.254 -68. 7357 - 809 21.243 -2.253 
2 =2,. 373 13.267 -68.770 -818 21.230 "2.142 
2 “2.303 13.2890 =68.753 ~ 027 21.217 “2.026 
2 2.3503 13.293 -63.796 - 836 21.204 -1.916 
2 =e Sis 13.306 -68. 809 045 al. 31 “1.733 
2 -2.373 13.319 -68.822 - 854 21.178 -1.676 
2 "2.373 13.332 -68.835 Q64 21.165 -1.558 
2 -2.373 13.345 -58.843 -873 21.152 -1.441 
2 -2.373 13.358 -63. 861 982 21.139 =12 325 
2 “2.373 13.371 -68.874 -O91 21.126 “1.204 
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TABLE A-VI (CONT) 


RAY BETA THETACRAY > NORMAL s ALPHA2 RHO 2 
2 -2.373 13.334 -63.387 - 189 21.113 -1.9385 
é "2.373 13.396 -683.399 109 21.161 =< 2015 
2 -2.373 13.4989 =68.91l2 2118 21.0888 = oe 
2 -2.373 13.422 -63.925 127 21.975 we Ct 
2 =Zi. 3093 13.434 -68.937 ~ 136 21.963 -.596 
2 -2.373 13.447 -68.959 145 21.959 -.486 
2 -2.373 13.469 -68.963 1354 21.937 =260 
2 -2.373 13.472 “63.975 ~ 163 21.0825 -.244 
2 -2.373 13.485 -68.988 172 21.9012 ~~ Wee 
2 =2. 313 13.497 -69.009 182 21.009 -.96u 
2 “2.373 13.435 -68. 988 ~172 21.912 =, lee 
2 "2.373 13.486 -68. 989 173 21.011 -.119 
2 -2.373 13.437 -98.999 174 21.919 -.098 
2 "2.373 13.488 -63.991 2175 21.999 -.835 
2 =2.37°3 13.499 -68. 993 2176 21.887 =. 07 
2 "2.373 13.491 -68.994 ~177 21.096 -.061 
2 -2.373 13.492 -68. 995 17 21.9985 -.049 
2 "2.373 13.493 -68.996 2179 21.004 -.93? 
2 wee iD 13.495 -63.998 - 139 21.002 -.@024 
2 =2.01 3 13.496 =63.579 ~131 21.991 =. 312 
2 -2.373 13.497 -69.9908 ~182 21.999 -.009 
2 -2.373 13.496 =6oe079 131 21.991 -.812 
2 “2.3973 13.496 “69.5522 ~ 181 21.901 -.911 
e =Ze3t3 13.496 =63. 999 ~181 21.091 -.818 
2 -2.373 13.496 -68.999 ~131 21.991 -.3909 
2 "2.373 13.496 =69.999 131 21.981 -.007 
2 =26373 13.496 =68..929 131 21.901 -.086 
2 =2.373 13.497 -69. 099 ~181 21.999 -.095 
2 =2.3°3 13.497 -59.999 131 21.999 -. 994 
2 -2.373 13.497 -69.03089 ~131 21.089 -. 982 
2 -2.373 13.497 -69. 389 ~131 21.998 -.991 
2 -2.373 13.497 -69.089 -182 21.999 -. 999 
2 "2.373 13.497 -69.999 ~181 21.090 -.991 
2 -2.373 13.497 -69.9989 ~181 21.989 -.991 
2 -2.373 13.497 -69.9089 131 21.999 -.091 
2 -2.373 13.497 -69. 989 ~181 21.989 -.001 
2 "2.373 13.497 -69.9989 ~131 21.999 -.991 
2 -2.373 13.497 -69.3899 ~131 21.989 -.991 
2 "2.373 13.497 -69.0909 ~181 21.989 -.009 
Z -2.373 13.497 -69.099 ~131 21.999 -. 609 
2 "2.373 13.497 -59.999 182 21.999 -.999 
2 -2.373 13.497 -69.999 ~182 21.089 -.308 
3 -3.038 13.157 -68.669 - 889 21.3498 -3.988 
3 -3.938 isalis> "63.578 ~911 21.322 -2.939 
3 -3.983 13.192 -68.695 -923 21.305 -2.799 
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TABLE A=-VI (CONT) 


RRY BETA THETACRAY) NORMAL s ALPHR2 RHO 2 
3 -3.688 13.210 -68.713 834 21.287 -2.649 
3 -3.988 loue2ed -638.730 846 21.278 -2.490 
S ~3.988 13.244 -68.747 657 21.253 =26 509 
3 -3.988 13.262 -68.765 - 869 21.235 25st 
3 -3.988 13.279 -68.782 880 21.218 =2. 020 
3 -3.088 13.296 =96.7 99 ~ 892 21.201 =l2oce 
3 -3.088 L3.3t3s -68.316 ~ 103 21.184 ~l.ves 
3 -3.988 13.3390 =66.633 eilsS 21.67 -1.574 
3 -3.638 13.347 -68.850 ~126 21.156 -1.429 
3 -3.988 13.364 -58.867 138 2l.i33 -1.264 
3 -3.088 13.381 -68.8384 149 2t.116 “1.108 
3 -3.888 13.398 -68.901 ~161 21.899 =. 9 v2 
2 -3.988 13.415 -68.913 e172 21.082 = 08 
3 -3.983 13.431 -68.934 134 21.066 =.65¢ 
3 -3.088 13.448 =68. 901 ~195 21.049 -.479 
3 -3.9888 13.464 -63.967 267 21.833 -.320 
3 -3.988 13.4381 -63.984 -218 21.016 -.166 
3 -3.688 13.497 -69.006 - 238 21.0968 -. 960 
3 -3.988 13.481 -63.984 218 21.016 -.169 
3 -3.9088 13.482 -63.985 sar? 21.015 -~.144 
3 -3.688 13.484 -68.987 ~ 220 21.9013 -.128 
3 -3.688 13.486 -68. 989 »222 21.011 =the 
3 -3.088 13.487 -58.3999 2223 21.016 -.995 
3 -3.088 13.4389 = Soo 92 224 21.008 -.989 
3 -3.9088 13.491 -68.993 -225 21.067 -.664 
3 -3.888 13.492 -68.995 ~226 21.6985 -.848 
3 -3.983 13.494 -58.997 227 21.803 =,632 
3 -3.988 13.495 -58.9983 -228 21.002 =.016 
3 -3.988 13.495 -68.998 -228 21.902 -.016 
S -3.088 13.496 -68.999 »229 21.601 -.014 
3 3.888 13.496 =66.999 »229 21.001 -.013 
3 -3.888 13.496 =66. 999 2229 21.661 =. O01 
3 -3.9888 13.496 =66.999 ~229 21.061 -.818 
3 -3.988 13.496 -68.999 °229 21.0@1 -.808 
3 -3.088 13.496 =66.979 °229 21.001 -. 606 
3 -3.088 13.497 -69.000 229 21.9890 -.905 
3 -3.988 13.497 -69.000 2229 21.690 -.683 
3 -3.088 13.497 -69. 006 ~229 21.600 -. 082 
3 -3.088 13.497 -69.060 - 238 21.088 -. 966 
3 -3.088 13.497 -69.008 -229 21.608 -.862 
3 ~3.088 13.497 -59.080 2229 21.000 -. 691 
3 -3.988 13.497 -69.009 2229 21.808 -.9@61 
3 -3.888 13.497 -69.000 229 21.006 -.061 
3 -~3.688 13.497 -59.00G ~229 21.006 -. 681 
3 -3.088 13.497 -69.660 ~ 239 21.008 -.001 
3 -3.688 13.497 -59.60G - 239 21.068 -.061 








TABLE A-VI (CONT) 


RAY BETA THETACRAY) NORMAL $ ALPHA2 RHO 2 
3 -3.088 13.497 -69.000 . 239 21.080 -. 400 
3 -3.988 13.497 -59.000 239 21.900 -. 13132 
3 -3.088 13.497 -69.000 2230 21.000 -. 008 
3 -3.088 13.497 -69.000 239 21.090 -.uud 
3 -3.9888 13.497 -09.9000 ©2350 21.908 -. 600 
3 “3.9088 13.497 -69.900 238 21.968 -. 800 
3 -3.088 13.497 -59. 900 239 21.389 -.999 
3 -3.988 13.497 -59. 900 239 21.000 -.939 
3 -3.988 13.497 -69.000 239 21.8608 -. Yb 
3 -3.9888 13.497 -69.000 239 21.000 -.380 
3 -3.988 13.497 -69. 808 230 21.889 -.000 
3 -3.988 13.497 -69.809 239 21.000 -. 099 
3 -3.988 13.497 -69.808 230 21.300 -. 389 
3 -3.9888 13.497 -69.9900 ~ 230 21.980 -.U60 
+ -3.345 13.9865 “83.568 0.899 21.432 3.845 
4 “3.845 13.888 -63.591 -014 21,489 3.662 
“ -3.345 13.118 -68.613 0238 21.387 3.473 
4 -3.3845 13.133 -68.636 042 21.354 Seat 3 
4 -3.845 lon Ss -58.658 O56 21.342 3.107 
* -3.845 13.177 -58.6390 869 21.329 2.920 
~ "3.845 13.199 "68.7902 - 983 21.298 2s fe 
4 -3.845 13.221 -03.724 -997 21.276 20.293 
+ “3.845 13.243 -68.746 111 21.254 2.003 
4 -3.845 13.265 -58.768 125 21.232 Z.loe 
+ "3.845 13.236 "68.739 «lo? 21.211 1 328 
oY -3.845 13.3088 =6S.611 153 2leie9 ler cx 
> -3.345 13.329 “63.932 167 21.163 1.534 
4 -3.845 13.351 -68.854 - 180 21.146 1.339 
= -3.845 13.372 -638.375 ~ 194 2l. 12s 1.194 
4 -3.845 13.393 -68.896 208 21.104 =. 996 
~ -3.845 13.414 -68.917 ~222 21.983 -.390 
4 "3.345 13.435 -68.938 236 21.962 =. ool 
3 -3.345 13.456 “68.959 °259 21.041 -.492 
+ -3.845 13.476 “58.979 264 21.8021 -.201 
~ "3.845 13.476 -68.979 0 264 21.021 -.a01 
4 -3.845 13.479 -68.982 265 21.9018 Sa to 
* -3.845 13.481 -68.934 267 21.916 =, 161 
4 -3.845 13.483 -68.986 268 21.014 -.141 
4 -3.345 13.485 -63. 938 ~ 269 21.912 ~. bel 
4 "3.845 13.487 “53.999 ~271 21.810 = wre L 
4 "3.845 13.489 “43.992 272 21.998 - 08 1 
4 "3.845 13.491 -08.994 273 21.006 -.861 
4 -3.845 13.493 “53.996 ears 21.004 -.348 
~ "3.845 13.495 -63.998 2276 21.802 -.020 
4 -3.845 13.495 -03.3998 276 21.9082 -.820 


90 








TABLE A-VI (CONT) 


RAY BETA THE TRCRAY) NORMAL $ ALPHR2 RHO 2 
+ -3.845 13.495 -68.998 »276 21.982 =,913 
¥ -3.345 13.495 -68.998 seer 21.002 -.016 
4 -3.845 13.496 -68.999 care 21.8001 -.014 
+ -3.845 13.496 “63.999 .277 21.001 -.912 
4 -3.845 13.496 “68.999 eer? 21.9001 -.019 
4 -3.845 13.496 -68.999 .2r? 21.001 -.983 
+ -3.845 13.496 =65.022 sere 21.9001 -. 806 
4 -3.845 13.497 -69.000 .2r?r 21.909 -. 904 
4 -3.845 13.497 -69. 908 0277 21.8089 -.602 
7 -3.845 13.497 -69.900 .2ar? 21.900 -.982 
-3.3845 13.497 -59. 000 .er?r 21.808 -.902 
4 -3.845 13.497 -69.000 -278 21.800 -. 982 
+ -3.845 13.497 -69. 080 -278 21.008 -.901 
4 -3.845 13.497 -69.000 -e78 21.388 =. Ol 
4 3.845 13.497 -69.080 -er78 21.000 -.901 
4 "3.845 13.497 -59. 000 .e73 21.908 -.001 
4 -3.845 13.497 -69. 000 278 21.808 -.901 
* -3.845 13.497 -69.808 .278 21.908 -.060 
4 -3.845 13.497 -69.009 -278 21.008 -.908 
* -3.845 13.497 -69. 000 -278 21.0800 -,. 000 
4 3.845 13.497 -59. 008 -278 21.908 -.988 
4 -3.845 13.497 “69.000 .278 21.008 -.900 
7 "3.845 13.497 -69.000 -2783 <-1.008 -. 988 
4 -3.845 13.497 -69.008 -278 21.880 -.388 
4 -3.845 13.497 -89.3000 -2783 21.908 -. 906 
4 "3.845 13.497 -69.000 -278 21.0808 -. 886 
4 -3.845 13.497 -59.9800 .278 21.8008 -.900 
4 -3.345 13.497 -69. 808 -278 21.9808 -.000 
4 -3.845 13.497 -69.000 .278 21.808 -.0800 
S -4.649 12.965 -68.468 8.909 21.532 -4.649 
S 4.649 12.3993 -68.496 ~816 21.584 -4.439 
S -4.649 13.920 -68.523 » 833 21.477 -4.209 
. -4.649 13.848 -68.351 - 849 21.449 =-J2990 
S "4.649 13.875 -68.578 - 865 21.422 -3.764 
5 -4.649 13.1903 -63.606 - 981 21.394 =Sese 
S -4.649 13.138 =68 635 - 998 21.367 -— Sess 
S -4.649 13.157 -68.660 ~114 21.340 -3.9086 
S 4.649 13.184 -68.637 ~138 €l.sr3 -2.857 
> -4.649 L3cat1 -68.714 2147 21.286 2.627 
S -4.649 13.238 -68.741 ~ 163 21.259 -2.395 
S -4.649 13.265 -68.763 -179 2lwes2 =Zelee 
2 -4.649 13.291 -63.794 2195 21.206 = liar 
S -4.649 13.317 -68.829 e212 21.188 “1.692 
S -4.649 13.344 -68.847 ~223 elslo3 -1.454 
S "4.649 13.378 -63.873 2244 21.127 “1.275 
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TABLE A-VI (CONT) 








RAY BETA THETACRAY) NORMAL s ALPHAR2] RHO 2 
3 -4.649 13.395 -63.398 -261 21.102 =o mo 
S -4.649 13.421 -63.924 .2r? 21.076 -.r34 
S -4.649 13.447 -68.9590 sacs 21.0850 =. 
> -4.649 13.472 -68.975 - 309 21.025 -.246 
S -4.649 13.472 =693.97 3 - 309 21.925 -.246 
S -4.649 13.474 -68.977 o3il 21.023 = cal 
S -4.649 13.477 -68.980 ~313 21.020 =e 
2 -4.649 13.479 -68.982 ~314 21.018 =.tce 
S -4,.649 13.482 -68.3935 ~ 316 21.015 = lord 
S -4.649 13.484 =60. 2c -318 21.013 =. 123 
S -4.649 13.487 -68.990 319 -1.010 =. Ula 
S -4.649 13.490 -63.99< o3al 21.808 -~.074 
S -4.649 13.492 768.995 ~ 322 21.005 -.049 
S -4.649 13.495 =o ea - 324 21.003 -.025 
S -4.649 13.492 -68.995 - 322 21,005 -.049 
S -4.649 13.492 -68.995 ~ 323 21.005 -.047 
S -4.649 13.493 -68.995 ~323 21.9005 -. 644 
S -4.649 13.493 =e 26 sas 21.004 -.342 
S -4.649 13.493 -98.996 e323 21.004 =, 839 
S -4.649 13.493 -§3.996 ~ 323 21.004 =.43¢ 
S -4.649 13.494 -68.996 323 21.004 -.835 
S -4.649 13.494 =68. 92 7324 21.893 -.932 
S "4.649 13.494 =69.77¢ ~ 324 21.003 -.039 
S -4.649 13.494 -63.997 ~ 324 21.003 -. 02? 
S -4,649 13.495 =SO geo oc - 324 21.003 -.925 
S -4.649 13.495 =63.998 » 324 21.002 -.922 
S -4.649 13.495 -63.998 2324 21.9002 -.920 
S -4.649 13.495 -68.998 325 21.002 =~ Uiler 
S -4.649 13.496 -68.998 - 325 21.002 =. Ors 
s -4.649 13.496 =©9. 999 325 21.001 -~. 012 
S -4.649 13.496 =65. 909 © 325 21.081 -.3916 
S -4.649 13.496 =60.939 ~ 325 21.001 -.007 
S -4.649 13.497 =63.9399 ~ 325 21.001 -.805 
3 -4.649 13.497 -69.000 ~ 326 21.000 -.002 
S -4.649 13.497 -69.000 © 326 21.090 -.002 
2 -4.649 13.497 -69. 000 ~ 326 21.000 -.4@2 
S ~4.649 13.497 -59.000 ~ 326 21.008 . @~.802 
S -4.649 13.497 -69.000 ~ 326 21.900 -.002 
S -4.649 13.497 -69.000 ~ 320 21.009 -.3ael 
s -4.649 13.497 -69.000 ~ 326 21.300 -.801 
S ~4,649 13.497 -69.000 ~ 326 21.900 -.O01 
S -4.649 13.497 -59.000 326 21.000 -.001 
S -4.649 13.497 -59.000 ~ 326 21.800 -. G89 
S -4.649 13.497 -69.000 ~ 326 21.000 -.000 
S -4.649 13.497 -59.090 326 21.000 -.000 
S ~4.649 13.497 -69.9000 ~ 326 21.900 -.408 
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TABLE A-VI (CONT) 


RAY BETA THETACRAY) NORMAL $ ALPHA2S RHO 2 
3 -4.649 13.49? -69.000 ~ 326 21.908 -. 902 
2 -4.649 13.497 -69.000 326 21.308 -. 880 
S “4.649 13.397 -59.000 326 21.800 -. 900 
S -4.649 13.497 -69. 088 326 21.300 -.000 
S “4.649 13.4397 “59.008 » 326 21.009 -.928 
S -4.649 13.497 -69.000 326 21.800 -. 808 
2 -4.649 13.497 -69.8090 326 21.800 -. 800 
5 "4.649 13.497 -69.000 326 21.800 -.968 
S -4.649 13.497 -69.000 326 21.800 -.989 
S “4.649 13.497 -69.000 326 21.800 -. 960 
JS -4.649 13.497 -59.000 - 326 21.000 -. 989 
J -4.649 13.497 -69.000 326 21.000 -. 0980 
S "4.849 13.497 -69.008 2326 21.090 -. 900 
S “4.649 13.497 -69.000 ~ 326 21.900 -.9690 
S -4.649 13.497 -69.000 326 21.9800 -. 968 
S “4.649 13.497 -69. 308 326 21.0900 -. 300 
2 -4.649 13.497 -69.006 326 21.000 -. 838 
S -4.649 13.497 -59.000 - 326 21.000 -.998 
6 -5.502 12.354 -53.357 - 808 21.643 -5.562 
6 -35.502 12.883 -63.390 ~G19 21.618 "5.245 
6 -5.502 12.921 -58.424 837 21.576 —=45 357 
6 -3.502 12.955 “68.458 ~ 956 21.542 S$. 2e 
6 -35.502 12.988 -93.491 a75 21.509 -4.465 
6 -5.502 13.021 -68.524 B93 21.476 “4.201 
6 -5.502 13.054 -63. 597 112 21.443 “3.935 
6 -5.502 13.087 -68.590 rS1 21.410 -3.687 
6 -3.502 13.120 -63.623 149 Zl. sine =Sn540 
6 -5.502 ia. toe -68.656 -168 21.344 -3..— 
6 -5.502 13.185 -68.688 -187 21.32 -2.351 
6 -5.502 13.217 -68.720 206 21.280 “2.576 
6 -5.502 13.249 “63.752 ~224 21.243 -2.298 
6 -5.502 13.281 -68.784 ~243 21.216 -2.018 
6 -35.502 13.313 -58.815 »262 21.185 -1. 736 
6 -35.502 13.344 -68.847 - 280 21.153 -1.451 
6 -5.502 13.375 “68.373 299 21.122 “1.165 
6 =Sevde 13.406 -63.909 - 318 21.091 =. 9 ae 
6 -3.502 13.437 =G0—noo2 - 336 21.061 -.587 
6 -3.502 13.467 -68.970 355 21.830 -.2394 
6 -5.502 13.437 -68.939 » 336 21.961 -.587 
6 -5.502 13.449 -63.943 - 338 21.9057 -.999 
6 =3.002 13.443 -68.946 ~ 340 21.854 -.929 
6 “-9. 902 13.446 -68.949 ~ 342 21.051 -.499 
6 -5.502 13.449 -58.952 344 21.048 -.4780 
6 -5.502 13.452 =5s5.995 346 21.045 -.441 
6 “3.902 13.453 -68.958 » 348 21.042 -.412 





TABLE A-VI (CONT) 








RAY BETA THETACRAY> NORMAL S ALPHA2 RHO @ 
6 -35.502 13.458 =63.961 ~ 349 21.039 -.382 
5 -5.502 13.461 -63. 964 331 21.036 =.250 
6 -5.502 13.464 -63.967 - 353 21.033 -.324 
6 -5.502 13.467 -58.970 ch) 21.036 =—J278 
6 -5.502 13.479 -63.973 ~357 21.027 -. 200 
6 -5.502 13.473 -88.976 2359 21.024 = 226 
6 -5.502 13.476 =6€3. 909 - 361 21.021 -. 206 
6 -5.562 13.479 -63. 982 - 363 21.018 =ale0 
6 -3.582 13.482 -63.985 2 364 21.3815 -.14¢ 
6 -5.502 13.485 ~68.988 - 366 21.012 -. Li 
6 -3.502 13.488 “68.991 - 368 21.809 -.3839 
5 -5.582 13.491 “88.994 - 378 21.006 -.0633 
6 -5.5@2 13.494 -63. 997 2372 21.083 -.334 
6 -5.502 13.491 -68.994 - 370 21.006 -,.099 
6 -5.502 13.491 “68.994 - 378 21.006 -.956 
6 -5.5d2 13.492 -68.995 - 378 21.005 =. 096 
6 -5.502 13.492 -68.995 ~371 21.005 -.350 
6 -5.5@02 13.492 =630).. 995 ootl 21.805 -.847 
6 -3.502 13.493 “68.995 ooel 21.005 -. 044 
5 -3.502 13.493 -6S. 936 0371 21.004 -.941 
} -3.502 13.493 “68.996 onl 21.004 -.933 
6 -3.582 13.493 -68.996 0371 21.004 -.035 
5 -5.502 13.494 =60. 97 0372 21.2803 =.U32 
6 -5.502 13.494 =6S 927 ~372 21.0083 -.039 
6 -3.502 13.494 -53.997 372 21.003 =,O20 
6 -5.502 13.493 -63.998 372 21.002 -.%24 
6 -5.502 13.495 “88.998 ~372 21.002 -. Wel 
6 -5.502 13.495 =-635.979s -373 21.002 -.013 
6 -5.502 13.496 “96.099 0373 21.001 =. 015 
6 -5.502 13.496 =65). 999 2373 21.001 -.O12 
6 -3.502 13.496 -6o, 97 ~373 21.0081 -.009 
6 -3.5082 13.496 “63.729 © 373 21.2001 -. 806 
6 -5.582 13.497 -59.0080 2374 21.0280 -.083 
6 -35.502 13.496 =6057-9 .379 21.001 -. 086 
6 -5.502 13.496 996799 ao 21.001 -. 906 
6 -5.502 13.496 -63.999 373 21.001 -.405 
6 -3.502 13.497 -68.999 »373 21.001 - -.6985 
6 -5.502 13.497 -69.000 .373 21.000 -.805 
6 -3.502 13.497 -59.000 2303 21.000 -.064 
6 -5.502 13.497 -69.000 33 21.000 -. 064 
5 -5.502 13.497 -959.000 -ora 21.000 -. 004 
6 -3.502 13.497 -59.002 sans 21.000 -.3Q4 
6 -5.3502 13.497 -69.000 ~374 21.000 -.303 
6 -3.582 13.497 -39.000 ~374 21.000 -.803 
6 -5.5@2 13.497 -69.93280 ~ 374 21.2800 -. 803 
6 -5.502 13.497 -59.000 2374 21.808 -.002 
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TABLE A-VL (CONT) 


RAY BETA THETACRAY) NORMAL S ALPHAR2 RHO 2 
6 -5.502 13.497 -o9. 000 ~3?4 21.900 -. 902 
6 wy. COs 13.497 -69.000 374 21.008 -.602 
6 -35.502 13.497 -69. 300 374 21.008 -.001 
6 -5.502 13.497 -69.000 374 21.808 -.3001 
6 = se 13.497 -69.000 374 21.3898 -. 001 
6 -5.502 13.497 -69.000 374 21.9800 -.901 
6 -5.502 13.497 -69.008 ~3r4 21.000 -.9000 
6 -5.502 13.497 -69. 000 374 21.080 -.001 
6 -3.502 13.497 -69. 0008 .374 21.008 -.0631 
6 -5.502 13.497 -69.000 »374 21.080 -.001 
6 -5.502 13.497 -69.008 374 21.000 -.001 
6 -35.502 13.497 -69.000 ~ 374 21.088 -. 960 
6 -3.502 13.497 -69.000 374 21.808 -. 986 
6 -3.5902 13.497 -69.000 ~374 21.8080 -. 900 
6 -35.502 13.497 -69.000 ~374 21.800 -. 000 
6 -5.592 13.497 -69.000 ~ 374 21.000 -.9000 
6 -5.502 13.497 -63. 080 374 21.000 -. 868 
6 -5.502 13.497 -69.009 0374 21.008 -. 000 
6 -3.502 13.4397 -69.000 374 21.808 -. 880 
6 -35.502 13.497 -69.000 374 21.800 -.800 
6 “35.502 13.497 -69. 008 2374 21.000 -. 980 
6 -5.502 13.497 -59.600 374 21.008 -. 008 
6 -3.502 13.497 -69.000 374 21.000 -. 308 
6 =. 502 13.497 -o9. 000 374 21.008 -.900 
6 -5.502 13.497 -63.080 374 21.000 -. 008 
6 -35.502 13.497 -69.000 ~374 21.008 -. 809 
6 =5.502 13.497 -59.000 374 21.900 -. 808 
6 -35.502 13.497 -69. 000 ~374 21.000 -.800 
ic -6.489 iZscol -68.234 8.000 21.766 -6.409 
¢ -6.409 12.772 -63.274 ~ O21 21.726 =6. lo 
¢ “6.409 12.812 =65. 510 ~ 842 21.685 = sled 
i -6.409 12.852 -63.355 - 863 21.645 -5.518 
¢ -6.409 12.392 -63.394 - 884 21.606 -sr21S 
¢ “6.409 12.931 “68.434 105 21.566 “4.910 
G -6.409 12.971 -63.474 ~12?7 21.526 -4.602 
? -6.489 13.919 =GaaS lic 148 21.487 -4,292 
€ ~6.489 13.049 -68.592 169 21.448 “3.915 5 
¢ “6.409 13.888 -68..591 -198 21.489 -3.662 
7 -6.409 13.126 -63.629 211 21. Sql -3.343 
c -6.489 13.165 -63.668 »232 21.332 -3.922 
ie -6.409 13.203 -53. 706 Zoe 21.294 2.697 
a -6.489 13.241 “538.744 -er4 21.256 “2.370 
7 -6. 409 13.278 -63.781 °295 21.219 -2.049 
i “6.409 13.316 -68.319 ~ 316 21.181 =1. 700 
€ -6.409 13.353 -68.356 0337 21.144 -1.372 











TABLE A-VI (CONT) 


RAY BETA THETACRAY) NORMAL S ALPHA? RHO 2 
¢ -6.489 13.389 -68.892 0359 21.183 -1.032 
¢ -6.409 13.426 -68.928 - 388 21.872 = os 
? -6.489 13.451 -68.964 481 21.036 -.347 
? -6.409 13.425 -68.928 - 388 21.872 — 0392 
¢ -6.489 13.429 -68.932 ~ 382 21.068 -.657 
¢ -6.409 13.433 =63. 296 - 384 21.064 = oe o 
‘g -6. 489 13.436 -68.939 ~ 386 21.061 = 009 
¢ -6.409 13.440 -68.943 ~ 388 21.057 -.554 
¢ -6.489 13.444 -68.946 - 398 21.854 -.320 
¢ -6.489 13.447 ~68.950 ~ 392 21.859 -.485 
¢ -6.489 13.451 ~68.954 394 21.946 = #351 
¢ -6.409 13.454 -68.957 ~ 396 21.843 -.416 
¢ -6.409 13.453 ~-38.961 0399 21.0839 -.382 
¢ -6.409 13.461 -58.964 - 401 21.836 -. 347 
¢ -6.409 13.465 -68.968 - 483 21.832 =.312 
¢ ~6.489 13.469 “68.972 - 485 21.828 ~ 2278 
¢ -6.409 13.472 -68.975 ~ 407 21.825 -.243 
¢ -6.489 13.476 -68.979 ~ 409 21.021 = 7209 
¢ -6.409 13.479 -38.982 e411 21.818 -.174 
i ~6.489 13.483 -63. 986 2413 21.014 =~1o? 
¢ -6.409 13.486 -58.989 2415 21.011 -.1984 
¢ ~6.489 13.496 -68.993 ~418 21.807 -.070 
¢ -6.409 13.493 -68.996 - 420 21.084 -.835 
¢ -6.489 13.498 ~68.993 ~418 21.867 -.878 
¢ -6.409 13.490 -63.993 2418 21.007 -.066 
ag -6.409 13.491 -58.994 ~418 21.886 -.363 
¢ -6.489 13.491 -98.994 ~418 21.006 -.959 
cf -6.409 13.491 -68.994 .418 21.086 -. 936 
¢ -6.409 13.492 =95. 950 0419 21.085 -.8@52 
ic ~6.409 13.492 -88.995 ~ 419 21.885 -.049 
¢ -6.489 13.492 -93. 9935 ~419 21.885 -.045 
“4 -6.489 13.493 -68.996 2419 21.804 -. 342 
tf -6.409 13.493 ~-68.996 ~419 21.004 -.938 
¢ -6. 489 13.493 -68.996 ~ 428 21.004 -.835 
¢ -6.409 13.494 ~68.997 - 428 21.883 -.931 
¢ -6.409 13.3494 -68.997 ° 429 21.883 ~.823 
ie -6.489 13.495 -68.998 - 420 21.062 -.824 
¢ -6.489 13.495 =55. 3998 ° 420 21.082 -.@21 
c -6.489 13.495 -68.998 ~ 421 21.962 ~.617 
¢ -6.489 13.496 -68.999 ~ 421 21.001 -.014 
ie -6.409 13.496 ~-63.999 ~421 21.801 -~.816 
ic -6.409 13.496 =695.999 ~421 21.801 -.007 
¢ ~6. 489 13.497 -69.080 422 21.008 -.803 
i “6.409 13.496 -68.999 421 21.801 -.087 
ic -6. 409 13.496 =695. 2799 ~ 421 21.001 -.007 
cf -6.4389 13.496 -98.999 ~ 421 21.801 -. 086 
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TABLE A-VI (CONT) 


RAY BETA THETACRAY) NORMAL S ALPHA2 RHO 2 
in -6.489 13.496 -63.999 ~421 21.001 -. 006 
? -6.409 13.496 =69.999 $21 21.001 -. 086 
? -6.409 13.497 -68.999 421 21.001 -. 0 
C “6.409 13.497 -69. 008 421 21.008 -. GUS 
7 -6.409 13.497 -59. 888 421 21.888 -. 885 
7 “6.489 13.497 -69,. 808 ~422 21.008 -.804 
? -6.409 13.497 -69.088 422 21.980 -.004 
° -6.409 13.497 -69.888 ~ 422 21.888 -.983 
° -6.409 13.497 -69.000 422 21.000 ~. 9H2 
¢ -6. 499 13.497 -69.008 ~ 422 21.888 -.383 
? -6.409 13.497 -69.8090 422 21.008 -. 802 
c -6.489 13.497 -69.008 422 21.9388 ~.882 
ie -6.409 13.497 -63. 008 422 21.088 ~.W82 
a -6.409 13.497 -59.800 422 21.080 -.8@61 
ie -6.409 13.497 -69.008 422 21.9000 -.801 
i" -6.409 13.497 -59.088 ~ 422 21.000 -.601 
? -6.409 13.497 -59.808 422 21.888 -. 889 
0 -6.409 13.497 -69. 000 ~422 21.080 -. 008 
? -6.409 13.497 -59.080 ~422 21.000 -.808 
? -6.409 13.497 -69. 080 422 21.008 -.3800 
? -6. 409 13.497 -69.000 © 422 21.8089 -. 080 
¢? -6. 409 13.497 -69.000 ° 422 21.808 -. 908 
? -6. 409 13.497 -69. 009 ~422 21.808 -. 869 
? “6.409 13.497 -69.000 ~422 21.809 -.9@8 
? -6.489 13.497 -69.000 422 21.888 -. 600 
? -6.489 13.497 -69.008 $22 21.0888 -.880 
0 -6.4089 13.497 -69.008 ~422 21.808 -. 886 
3 “7.375 12.595 -63.098 - 888 21.982 <7 oar 
8 “7.375 12.643 “68.146 BS3 21.854 -7.041 
8 “7.375 12.698 -68.193 847 21.807 -6. 7°84 
8 =(e3to 12.738 -68.241 - 878 21.799 -6. 363 
8 -7.3¢5 12.785 -68.288 ~ 394 21.712 -6.013 
8 =(.3¢9 12.831 -68. 334 117 21.666 -5.670 
8 -7.375 12.3878 -63.381 141 21.619 peter) <)) 
8 =7.3¢5 12.924 -68.427 - 164 21.573 -4.963 
3 “0. 3uco 12.970 -63.473 188 21.527 -4+.604 
8 “7.375 13.816 -68.519 e211 21.481 ~4.241 
8 “7.375 13.362 -63.565 ©235 21.435 =3.3¢9 
8 =".3¢0 13.107 -68.618 258 21.398 3.005 
8 -7.3735 13.152 -68.655 282 21.345 ~3. 131 
8 =(.300 13.196 -68.699 - 385 21.301 -2.7353 
8 =(.300 13.241 -68.744 329 21.256 ~ee.s0 1 
8 “7.375 13.285 -68.787 352 21.213 -1.986 
8 -(.3°9 13.328 -63.831 376 21.169 ~ {Sor 
3 =".3¢0 13.371 -63.374 ~ 399 21.126 -1.293 
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fap a=—VvE (CONT) 


RAY BETA THETACRAY > NORMAL S ALPHA2 RHO 2 
. 
8 -7.375 13.413 -68.916 ~423 21.984 -.386 
8 =f. Site 13.455 -68.958 ~ 446 21.942 -. 405 
8 =/.3¢75 13.413 “68.916 423 21.984 -.3506 
8 “7.375 13.418 -68.921 2425 21.979 -. 765 
8 -7.375 13.422 -68.925 428 21.9875 = «ul 26 
8 =7.379 13.426 -68.929 - 439 21.971 ~.586 
8 -7.375 13.439 -68.933 432 21.867 -.645 
8 =(.3f0 13.435 -63.937 $35 21.963 -.506 
8 -7.375 13.439 -68. 942 437 21.958 -.566 
8 =. 3n0 13.443 -68.946 2 439 21.954 -.526 
8 “7.375 13.447 -68.959 442 21.959 -.435 
8 -7.375 13.451 -68.954 444 21.046 -.445 
8 -7.3/79 13.455 -68.958 446 21.842 -.495 
8 -7.375 13.469 -63.963 449 21.937 -. 365 
8 =f ci.) 13.464 -68.967 451 21.933 -.324 
8 =—(.399 13.468 =68.9¢1 2453 21.929 -.<284 
3 -7.375 13.472 -63.975 2456 21.925 -.244 
3 =f.ors 13.476 -68.979 . 458 21.021 -.203 
8 -7.375 13.4890 -63.983 ~ 469 21.017 -.162 
8 =(.3°0 13.485 -63.988 - 463 21.912 =. Ze 
8 -7.375 13.489 -68.992 465 21.8983 -.931 
8 = con 3 13.493 -68.996 ~ 467 21.904 -.041 
3 -7.375 13.439 -68.992 . 465 21.0808 -. 3S 
8 -7.375 13.489 -68.992 2465 21.993 -.077 
3 =/.375 13.499 -68.993 - 466 21.907 -.873 
3 =—.30o 13.4998 -68.993 466 21.907 -.069 
8 -7.375 13.4990 -68.993 466 21.087 -.965 
8 =fesCo 13.491 ~-63.994 466 21.0906 -.36l 
8 -7.375 13.491 -63.994 467 21.9096 -, O57 
8 “7.379 13.492 -68.995 467 21.8905 -.953 
8 “7.3705 13.492 -68.995 ~467 21.995 -.9049 
8 = sto 13.492 -68.995 ~ 467 21.0905 ~.945 
3 =Tesca 13.493 -68.996 467 21.9004 -. 341 
8 -7.375 13.493 -63.996 - 468 21.904 -.937 
8 “7.375 13.494 =68. 997 - 468 21.883 -.933 
8 “(sate 13.494 -68.997 468 21.893 -.323 
8 =lesto 13.495 -68.998 ~ 468 21.802 -. 924 
8 =(o Ge 13.495 -68.998 . 469 21.902 -.920 
8 =. dco 13.495 -68.998 - 469 21.982 -.316 
8 -7.375 13.496 -63.999 469 21.901 -.312 
8 -*.379 13.496 -68.999 469 21.901 -.909 
8 “7.375 13.497 -69.9909 - 479 21.9009 -.004 
8 “".3¢5 13.496 -58.999 »469 21.901 -. 808 
3 -7.375 13.496 -68.999 ~ 469 21.001 -. 398 
3 “(Sie 13.496 -68.999 2469 21.9001 -.907 
8 =(s3to 13.496 -68.999 - 469 21.9001 -.987 
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TABLE A-VI (CONT) 


RAY BETA THETACRAY) NORMAL S ALPHA? RHO 2 
3 =facrs 13.496 =68.999 469 21.001 =,007 
8 =fa300 13.496 68.999 » 469 21.001 -.006 
3 -7.3¢0 13.496 =55. 997 - 469 21.001 -. 006 
8 fests lseo3¢ ~63.999 - 478 21.001 -. 065 
8 tot 13.497 -69.000 470 21.080 -.805 
8 "fasta 13.497 -69.060 . 470 21.000 -. 004 
8 =feord 13.497 -69. 000 -478 21.800 -.804 
8 =fe34 13.497 -69.000 -470 21.000 -.024 
8 =f 613 Cis 13.497 -69.008 . 470 21.000 -. 883 
8 Sia So Ce 13.497 -69.000 479 21.000 -.003 
3 ~f.3to 13.497 -69.000 478 21.000 -.902 
8 “7.375 13.497 -69.000 - 470 21.900 -.0082 
8 =i «3 (as 13.497 -69.000 470 21.000 -.0G2 
8 Cet 13.497 -69. 000 470 21.000 -.0@1l 
8 =f soto 13.497 -69.000 -47@ 21.000 -.8@1 
3 Bf.303 13.497 -69.008 .470 21.000 -.000 
3 -7.375 13.497 -69. 800 - 478 21.000 -. 001 
8 "feat 2 13.497 -69. 000 - 479 21.900 -.081 
3 ~fe3re 13.497 -69.000 - 470 21.9000 -.00l 
3 “7.379 13.497 -69.000 -470 21.908 -.0@1 
8 =a S ro 13.497 -69.000 - 470 21.080 -. 001 
3 1.300 13.497 -69. 000 «478 21.000 -.001 
8 “7.375 13.497 -69. 000 - 478 21.800 -.001 
8 toto 13.497 -63.000 -4706 21.000 -.061 
8 “7.379 13.497 -69.000 470 21.008 -.068 
8 =f 30 13.497 -59.000 -478 21.000 -.00 
3 iia Old 13.497 -69.000 » 470 21.000 -. 382 
8 Tote 13.497 -69.000 - 470 21.9009 -.908 
3 =feora 13.497 -69.080 -47°@ 21.9000 -.000 
8 ta sce 13.497 -69.000 - 478 21.900 -. 000 
8 “7.375 13.497 -69.000 479 21.908 -. 800 
8 —7 300 13.497 -69.000 -470 21.900 -. 900 
8 tis ce 13.497 -69.009 . 470 21.800 -. 800 
8 (acta 13.497 -69.000 4798 21.008 -.008 
8 (ot a 13.497 -69.000 478 21.808 -.300 
8 -7.375 13.497 -59.000 -4790 21.000 -. 9000 
9 -8.406 12.445 67.948 9.089 22.052 -3.406 
9 “8.406 12.580 -68.003 - 826 21.997 -3.032 
9 -3.406 12.556 -63.8059 - 852 21.941 = 7 JOmg 
9 -8.406 12.611 -63.114 878 21.886 -'.269 
2 -8.406 12.566 “68.169 104 21.831 -6.881 
2 -8.406 12.729 -58.223 129 el. ae -6.4383 
2 -8.406 12.775 -63.278 155 21.722 -5.898 
9 “8.406 12.329 “03.332 1381 21.663 -35.683 
9 “8.406 12.383 -63. 386 - 207 21.614 -3.280 











TABLE A-VI (CONT) 


RAY BETA THETACRAY) NORMAL S ALPHA2 RHO 2 
2 -8.406 Lee 3o¢ -63.448 6233 21.568 -4,363 
9 -8.406 12.998 -63.4993 6259 21.587 “4.451 
2 -3. 406 13.843 -68.3546 285 21.4384 -4,023 
2 -38.406 13.895 -638.593 ali 21.482 -3.682 
9 -3. 406 13.147 -68.659 o3ar 21.3598 Sela 
3 -3.406 13.199 -68. 782 - 363 21.298 —2 om 
2 -3.406 13.258 -63.753 . 388 21.247 -2.299 
9 -8.496 13.301 -68.804 2414 21.196 -1.342 
9 -3.406 13.351 -68. 354 . 448 21.146 =172,239 
2 -8.406 13.480 -68. 9083 » 466 21. Go 29s e 
9 -8. 406 13.449 -63.952 ~492 21.848 -.469 
9 -8.406 13.449 -68.952 04392 21.048 -. 469 
> -8.406 13.454 =O ~ sour 0495 21.043 -.422 
3 -3.486 13.439 ~63.962 0497 21.838 -5 
9 -8.406 13.463 -53.966 . 500 21.034 =.329 
2 -8.406 13.468 ~68.971 ~ 502 21.9029 =,coc 
9 -8.406 13.473 -63.976 » 585 21.824 - 72) 
2 -8.406 13.478 -68.981 508 21.019 =. io 
3 -3.496 13.483 -68.986 319 21.014 -.141 
9 -8.406 13.487 -63.990 0313 21.018 -~. 894 
2 -3.406 13.492 -68. 995 sts 21.005 -.047 
9 -8.4386 13.492 -638.995 Sl 21.005 -.94? 
2 -3.4096 13.493 -68. 996 316 21.004 -. 042 
9 -38.406 13.493 -63.996 » 516 21.3804 -.83 
2 -3.486 13.494 -53.997 -316 21.803 -.833 
3 -3.406 13.494 -68.997 2316 21.983 -.923 
9 -3. 406 13.495 -68.998 317 21.002 ~.824 
9 -8.406 13.495 =S5 5070 ~S17 21.982 =s O19 
9 -3.406 13.496 253 « 199 ~317 21.001 -.314 
2 -8.406 13.496 =63. 999 on ie 21.001 -.0089 
9 -8.406 13.497 -69.908 Sis 21.0080 -. 30S 
9 -8.406 13.497 -59. 000 .318 21.000 -.995 
2 -3.406 13.497 -59. 080 518 21.900 -.004 
2 -3.406 13.497 -59.800 -318 21.989 -.304 
2 -8.406 13.497 -69. 808 318 21.888 -. 883 
9 -8.406 13.497 -69. 000 -518 21.800 -.093 
2 -8.406 13.497 -69. 800 -518 21.2000 -.u02 
9 -8. 406 13.497 -69.008 -518 21.008 ~. 982 
9 -3.496 13.497 -63. 3898 -518 21.000 -.001 
9 -8.406 13.497 -69. 000 -518 21.808 -. 891 
2 -3. 406 13.497 -69. 006 318 21.888 -.089 
9 -3.406 13.497 -69.088 .318 21.000 -. 200 
9 -3.406 13.497 -69.980 318 21.000 -. 300 
9 -3. 496 13.497 -69. 000 318 21.0800 -.UBY 
9 -3.406 13.497 -69. 806 .518 21.800 -. 480 
9 -3.406 13.497 -59.000 518 21.000 -.088 











TABLE A-VI (CONT) 


RAY BETA THETACRAY) NORMAL S ALPHA? RHO <2 
9 -8.406 13.497 -59.808 2318 21.000 -. 009 
3 -3.406 13.497 -69. 080 .518 21.900 -. 3008 
2 -8.406 13.497 -69. 000 913 21.008 -. 850 
9 -3.406 13.497 -53.9008 -918 21.008 -. 9300 
2 -3.406 13.497 -69.008 918 21.000 -.8086 

10 -9.507 12.277 -67.780 0.080 22.220 9.507 
19 -9.507 12.341 -67.844 028 22.156 9.091 
10 -9.507 12.485 -67.988 857 22.992 3.5679 
18 = Sasor 12.469 “67.972 ~ 985 22.928 8.242 
18 =7 07 12.533 -68.036 113 21.964 7.385 
18 -9.507 12.596 -68.099 ~141 21.901 7.369 
18 -3.597 12.669 -68.163 -170 21.837 6.923 
19 =3), 507 12.723 -63.226 ~198 21.774 6.471 
18 Jus? 12.735 -63.283 226 Zl. lg 6.013 
10 -9.507 12.348 -63. 351 2255 21.649 5.548 
19 ~“ftoanar 12.919 -63.412 ~ 283 21.588 5.97? 
10 -9.507 12.971 -63.474 Sit 21.526 +.500 
10 = Iaoser 13.9332 -68.535 348 ei.465 4.116 
18 -9.507 13.092 -88.595 368 21.405 3.625 
19 -9.507 13.152 -63.655 396 21.345 3.128 
18 =9. 907 13.212 -68.715 424 21.285 2.624 
10 -9 4507 13.278 -68.773 453 21.227 <.ti3 
10 =9.507 13.328 -68.331 431 21.169 L..oo0 
10 -9.507 13.385 -68.888 » 509 21.112 1.978 
18 -9.507 13.442 -68.945 533 21.9055 -. 539 
10 =9.00/7 13.385 -58.388 3989 2l.ime 1.979 
10 =9 2500 13.391 -93.894 Sil2 21.106 1.0 
19 -9.3507 13.397 -68.908 2 oa 21.100 = so oe 
1@ =9,007 13.402 -68.905 518 21.095 -. Iie 
10 -9.507 13.408 660 Jt S2i 21.089 -.858 
10 “9.507 13.414 -68.916 $23 21.084 -.805 
10 =o. Sor 13.419 -68.922 2326 21.878 -. (92 
1@ “9.507 13.425 -68.928 329 21.072 =-.697 
1@ -9.507 13.430 -68.933 2532 21.067 -.646 
18 =9,.mOr 13.436 -68.939 2535 21.061 =~sJ27e 
19 “9. J07 13.442 -§8.945 2538 21.9055 =~ Jo? 
10 =F. 307 13.447 -68.958 - 548 21.050 -.485 
10 -9.507 13.453 -68.956 »343 21.044 -.431 
18 -9.507 13.458 -68.961 2546 21.039 -.378 
18 -9.507 13.464 -58.967 »549 21.033 -.324 
10 -9.507 13.469 “68.972 e352 21.828 -.270 
10 -9.507 13.475 -63.978 2555 21.022 -.216 
19 -9.507 13.480 -63.983 ‘oc 21.017 -. 162 
10 =9 i907 13.486 -63.989 568 21.011 -.103 
10 =9. 20" 13.492 “53.994 - 563 21.806 -.05+4 








TABLE A-VI (CONT) 


RAY BETA THETACRAY> NORMAL S ALPHA2 RHO 2 
16 co 1 13.492 -58.994 -563 21.006 -.954 
10 —9. a0 13.492 Soe 290 363 21.985 -.049 
19 -9.567 13.493 -58.996 -364 21.004 -.943 
10 -9.507 13.493 -68.996 364 21.004 -.833 
19 -9.507 13.494 -68.997 364 21.083 -.933 
10 -9.507 13.494 -68.997 364 21.803 =, G27 
16 -9.507 13.495 -68.998 - 565 21.002 -. G22 
16 =9. 507 13.495 -68.998 » 565 21.002 -.GO156 
10 "3.507 13.496 =68.997 365 21.001 -.611 
18 =9.397 13.496 -68.999 566 21.001 -.085 
19 "9.507 13.496 -68.999 - 566 21.001 -. 985 
10 -9.507 13.497 -69.008 566 21.880 -.805 
10 "9.597 13.497 -69.000 2566 21.0600 -. 804 
16 "9.507 13.497 -69.000 - 566 21.000 -. 894 
12 =9.597 13.497 -69.000 366 21.868 -.903 
10 -9.507 13.497 -693.009 - 366 21.000 -.903 
19 =2. 20° 13.497 -69.000 - 365 21.008 -. 962 
10 =9 oC 13.497 -69.909 366 1.908 -.902 
10 =9. 907 13.497 -69.000 - 566 21.800 -.601 
10 -9.507 13.497 -69.0080 - 366 21.000 -.061 
10 “9.507 13.497 -69.080 566 21.0880 -.961 
10 =9. 507 13.497 -69.000 ~ 366 21.300 -. 008 
10 = 9.007 13.497 -69.009 356 21.800 -. 008 
18 -9.587 13.497 -69.000 2366 21.000 -.080 
18 -9.507 13.497 -59.068 566 21.000 -. 9866 
10 -9.507 13.497 -59.000 - 566 21.080 -.080 
10 =9.s07 13.497 -69.0800 ~566 21.600 -. 908 
18 -9.507 13.497 -69.000 ~586 21.000 -. 608 
18 -9.507 13.497 -69.008 -566 21.000 -. 308 
10 “3.507 13.497 -69.080 366 21.800 -. 389 
11 -18.685 12.9099 "67.593 - 880 22.407 “180.685 
bl "10.685 12.164 -67.667 ~931 22.333 “180.227 
ri -18.685 12.237 -67.748 - 961 22.260 -9.762 
11 -10.685 12.311 -67.814 -992 22.186 -9. 239 
11 -10.685 12.384 -67.887 2123 22.113 -8.309 
11 -10.685 12.458 -37.961 2153 22.839 .73.328 
It -10.685 12.531 -68.0834 -184 21.966 “7.3245 
11 -18.685 12.603 -68.106 e215 21.394 -7.32 
nt -18.685 12.676 “38.179 -246 21.821 "6.389 
11 -10.635 12.748 -68.251 2276 21.749 -6.289 
11 -10.685 12.819 -63.322 307 21.678 -5.768 
11 -10.685 12.890 -68.393 2338 21.607 “5.224 
it “10.685 12.961 -63. 464 - 368 21.536 -4.679 
11 "10.685 13.031 -68.534 2399 21.466 -4.125 
11 -18.685 13.100 -63.683 - 438 21.397 "3.562 








TABLE A-VI (CONT) 


RAY BETA THETACRAY > NORMAL S ALPHAS RHO 2 
11 -180.685 13.169 -68.671 - 469 21.329 as ool 
11 ~10.685 13.236 “68.739 491 21.261 “2.411 
rt -10.685 13.203 “68.306 S22 21.194 -1.82 
ii ~10.685 13.369 “68.872 2553 21.128 =loeae 
il -18.685 13.433 -68.936 333 21.064 =,6l6 
11 ~10.685 13.369 -68.372 2553 21.128 -1.224 
11 -10.685 13.375 -68.878 356 21.122 “1.163 
11 ~10.685 13.382 -63.3885 359 21.115 -1.163 
rt ~10.685 13.388 -63.891 » 362 21.109 -1.042 
rt -10.685 13.395 -68.898 2365 21.102 -.982 
ii -10.685 13.401 ~-693.904 . 568 21.096 -. 921 
it ~10.685 13.408 =66s 711 «sel 21.889 -.368 
11 “18.685 13.414 =63. 907 S74 21.883 -.800 
ii -18.685 13.421 -63. 924 2570 21.976 = tao 
it -18.685 13.427 -68.9398 580 21.0790 =,67¢ 
il -18.685 13.433 -63.936 ~533 21.064 -.616 
it -10.685 13.449 -68.943 586 21.857 -.555 
11 -10.685 13.446 -68.949 589 21.851 -.494 
11 -18.685 13.453 -68.956 2392 21.044 =. 432 
re ~180.685 13.459 “68.962 596 21.038 >. Be 
rt ~10.685 13.465 -68.968 399 21.832 -.309 
{1 ~10.6985 13.472 -63.975 602 21.825 ~.243 
11 ~10.685 13.478 -68.981 . 605 21.019 =, 136 
xt ~10.685 13.484 -68.987 - 688 21.813 -.124 
it -18.685 13.491 -68.994 =611 21.006 -.062 
1 -10.685 13.484 -68.987 608 21.013 -.124 
il “10.685 13.485 -63.988 608 21.012 =—5.19s 
it -10.685 13.486 -68.989 698 21.011 ~.it2 
it ~10.685 13.486 -68.989 ~ 609 21.011 -. 105 
11 -10.685 13.487 ~68.9990 .609 21.019 ~.899 
11 ~10.685 13.488 =69. 791 689 21.009 -.893 
1 -10.635 13.488 =69. 2731 -510 21.009 -.087 
Ll ~10.685 13.489 -68.992 -610 21.008 -.981 
it ~10.685 13.439 "68.992 ~-610 21.008 -.9074 
it -10.685 13.4998 -68.993 ~6lt 21.807 -.968 
tt ~10.685 13.491 -68.994 ~-611 21.006 ~.862 
Lt -10.685 13.491 -63.994 ~6il 21.006 -.956 
ii -10.685 13.492 ~68.995 ~612 21.005 -.058 
cr -10.685 13.493 -68.996 ~612 21.004 -.943 
{1 -10.685 13.493 ~63.996 ~612 21.804 -.837 
tt ~10.685 13.494 =63.9> 7 612 21.903 -.831 
{1 -10.685 13.495 “68.997 -613 21.083 -.825 
Li ~10.685 13.495 -58.998 ~613 21.3802 -.819 
il ~10.685 13.496 -68.999 ~613 21.001 ~.@12 
il -10.685 13.496 63.999 -614 21.001 -.806 
tt ~10.685 13.496 -68.999 ~613 21.001 = O12 








TABLE A-VI (CONT) 


RAY BETA THETACRAY > NORMAL Ss ALPHA2 RHO 2 
it -10.685 13.496 -68.999 -613 21.8601 =.ule 
11 -18.685 13.496 “68.999 ~613 21.001 =,611 
11 -10.685 13.496 =639. 999 613 21.9001 ory) | 
11 -10.685 13.496 =§5.799 613 21.801 -.010 
11 -10.685 13.496 -68.999 0614 21.001 -.0@9 
11 -10.685 13.496 =68. 999 -614 21.001 -. 809 
11 -10.635 13.496 -68.999 ~614 21.001 -.883 
11 -160.685 13.496 =69. 999 ~614 21.981 -.087 
11 -10.685 13.496 -68.999 -614 21.9001 -.007 
Dt -18.685 13.496 -68.999 ~614 21.081 -. 906 
rt -18.685 13.496 -68.999 ~614 21.001 -. 906 
Ta -18.685 13.497 -68.999 614 21.881 -. 985 
11 -10.685 13.497 -69.300 ~614 21.000 -.084 
11 -18.685 13.497 -59. 080 614 21.000 -.934 
ri -10.685 132497 -69.003 -614 21.988 -.803 
Ll -10.685 13.497 -69.9880 ~614 21.800 -.802 
11 -10.685 13.497 -69.800 ~614 21.080 -.6G62 
rt -10.685 13.497 -69. 888 ~614 21.3808 -. 661 
11 -10.685 13.497 -69.888 ~614 21.800 -.901 
11 -10.685 13.497 -69.008 old 21.008 -.901 
11 -18.685 13.497 -69.000 ~514 21.8080 -.201 
11 -10.685 13.497 -69.000 614 21.800 -.081 
11 -10.685 13.497 -569. 338 ~514 21.888 -.001 
Lt “10.685 13.497 -69.800 ~614 21.000 -.001 
bt -18.685 13.497 -69.808 ~614 21.980 -.801 
Lee -10.685 13.497 -69.9000 ~-614 21.808 -.0@1 
to -10.685 13.497 -69.900 -614 21.9000 -.981 
El -10.685 13.497 -59.800 614 21.000 -. 3901 
11 -10.685 13.497 -69.0388 ~614 21.000 -.981 
11 -10.685 13.497 -69.000 ~614 21.300 -.981 
bt “10.685 13.497 -69.888 614 21.000 -.901 
11 -10.685 13.497 -69. 000 ~614 21.3808 -.000 
11 -10.685 13.497 -69.888 ~614 21.9380 -.808 
11 -18.685 13.497 -69.3800 614 21.000 -.900 
11 -10.685 13.497 -69.000 ~614 21.8080 -.088 
11 -10.685 13.497 -69.000 -614 21.008 -. 096 
11 -10.685 13.497 -69.8380 ~614 21.9380 -.808 
11 -10.685 13.497 -69.000 ~614 21.900 -. 0380 
11 -10.685 13.497 -69.900 ~614 21.900 -. 908 
l2 “11.947 11.381 -67.384 @.800 22.616 -11.947 
12 =11. 347 11.965 -67.468 O33 22.532 -11.446 
l2 -11.947 12.9049 =67.35ue - 866 22.448 -10.937 
12 711.947 12.133 -67.636 agg 22. 364 “19.4183 
l2 “11.947 12.217 -67.728 132 22.289 -9.889 
12 -11.947 12.301 -67. 804 - 166 22.196 “9.201 











TABLE A-VI (CONT) 


RAY BETA THETACRAY) NORMAL 3 ALPHA2 RHO 2 
12 “11.947 l2.399 -67.888 ~l39 22.112 -8.803 
12 -11.947 12.469 -67.972 » 232 22.8628 =3.2995 
1Z 11.947 12.552 -68.655 ~265 21.945 = «iar 
4 11.947 12.635 =S9.130 ~298 21.362 =/ .G7s 
LZ -11.947 12.717 -63.220 «sot 21.780 -6.503 
rz -11.947 2.799 -68.3@62 - 364 21.698 =e oS 
12 -11.947 12.881 -63.384 ~397 21.616 me aot 
4 -11.947 12.961 -68.464 » $36 21.536 -4.675 
12 alle 947 13.941 -63.544 » 463 21.456 -4+.042 
lz 11.947 13.120 -68.623 497 2i.3a¢ =3.346 
12 =11.947 13.198 -68.7@1 - 538 21.299 2.642 
12 =1), 9/7 13.275 -68.778 - 563 21.222 -2.074 
12 -11.947 13.350 -98.353 596 21.147 =. oo) 
12 11.947 13.424 =6¢6.920 »629 21.873 -.763 
12 =11.947 13.497 -69.8860 ~ 662 21.060 -.800 
4 =11.947 13.424 -68.927 - 6293 21.873 -. 703 
12 =i1.947 13.432 -98.935 ~632 21.865 = 935 
12 -11.947 13.439 -63.942 636 21.858 -~.564 
12 -11.947 13.446 -88.949 »639 21.051 -.494 
2 =11.947 13.454 -63.957 ~ 642 21.843 -.423 
12 “11.947 13.461 -68.964 »645 21.836 =. slo 
12 ~11.947 13.468 “68.971 .649 21.829 =—aeoS 
12 =i). M7 13.475 -68.973 ~652 21.922 = ee 
le -11.947 13.483 -63.986 ~655 21.014 -.142 
4 -11.947 13.496 “638.993 -659 21.067 -.9071 
12 =e Sar 13.497 -69.800 ~862 21.960 -.089 

2 -11.947 13.498 -63.993 -699 21.867 =e 1 
12 11.947 13.491 -63.994 -659 21.986 -. 664 
12 “11.947 13.491 -63.994 ~699 21.806 -.@57 
12 -11.947 13.492 -63.995 »- 666 21.985 -.858 
12 -11.947 13.493 -63.996 - 666 21.004 -. 843 
le 11.947 13.493 -68.996 - 666 21.004 -.835 
12 ~11.947 13.494 -68.997 -661 21.803 -.823 
12 11.947 13.495 -68.998 661 21.662 -.621 
12 “11.947 13.496 -68.999 - 661 21.9a@1 -.814 
4 =1i. 947 13.496 -68.999 ~662 21.¢01 -.807 
12 -11.947 13.497 -69. 000 - 662 21.2862 -.0860 
12 -11.947 13.496 -68.999 -662 21.661 -.067 
12 “11.947 13.496 -69. 999 - 662 21.601 -. 86 
12 “11.947 13.496 -63.999 ~-662 21.661 -. 066 
12 -11.947 13.497 -68.999 »662 21.6@1 -. 885 
12 “11.947 13.497 -59.66G »662 21.068 -.804 
12 “11.947 13.497 -69.800 -662 21.9800 -.0@4 
12 ~11.947 13.497 -69. 800 -662 21.808 -. 903 
12 -11.947 13.497 -69. 980 ~662 21.006 -.802 
12 11.947 13.497 -69. 060 °662 21.660 =, 00. 


10> 











TABLE A=-VI (CONT) 


RAY BETA THETACRAY> NORMAL > RLPHAR2 RHO 2 
le =11. 947 13.497 -69.888 -662 21.808 -.@61 
le =11. 947 13.497 -59.389 ~-662 21.088 -.000 
le =11. S07 13.497 -69. 808 662 21.8088 =.u0 1! 
le =). 947 13.497 -69.0868 -662 21.368 -.081 
12 -11.947 13.497 -39.888 - 662 21.388 -.601 
l2 =11.94/ 13.497 -69.688 -662 21.869 -.880 
l2 =t1. 97 13.497 -69.888 -662 21.688 -. 300 
12 -11.9947 13.497 -69. 808 - 662 21.888 -. 838 
le -11.947 13.497 -69.608 -662 21.808 -.989 
12 = 11. S47 13.497 -69.888 - 662 21.988 -.832 
le =11.347 13.497 -69.808 662 21.9800 -.960 
12 = 1.947 13.497 -69.868 »662 21.6869 -. 986 
le -11.947 13.497 -69. 9868 ~662 21.8868 -. 300 
13 -13. 366 11.646 -67.149 8.888 22.851 -13. 302 
13 -13.388 11.741 "67.244 - 836 22.756 =lZcuoc 
13 -13. 308 11.837 -57.348 - 871 22.668 -12.283 
13 -13.308 bi. 333 "67.4936 167 22.564 -1l.eac 
13 -13.388 12.829 -67.532 -142 22.468 “11.869 
13 "13.308 12.125 -67.628 -178 22.372 “16.47 
13 -13.368 l2.221 ~67.724 -213 22.276 -9.868 
13 -13. 3868 12.316 "67.012 249 oe St -9.253 
13 -13.388 12.412 -67.915 234 22.985 -3.526 
13 “13.386 12.587 -68.618 328 21.998 =. 700 
13 -13.300 12.682 -§68.165 2355 21.895 =. 391 
13 “13.388 12.696 -69.1399 ~ 391 21.861 "6.663 
13 -13.388 12.798 -68.293 426 21.787 -3. 931 
13 -13.386 12.882 -68.385 +62 21.615 -5.235 
13 -13. 306 12.974 -68.477 497 21.523 "4.575 
13 -13.3866 13.865 -68.568 ~ 533 21.432 -3.358 
13 -13.380 13.154 -68.657 368 21.343 “3.119 
13 “13.360 13.242 -68.745 - 664 21.255 "2.356 
13 “13.3868 13.329 -68.832 »639 21.168 -1.586 
13 “13.3868 13.414 -68.917 ~675 21.983 -.381 
13 -13.3868 13.329 -68.832 ~639 21.168 -1.586 
13 -13.3868 13.338 -68. 841 «643 Zinio? -1.508 
13 -13.398 13.346 "68.849 2646 21.151 -1.430 
13 “13.308 13.355 -68.858 658 21.142 “1.252 
13 -~13.398 13.363 -68.866 653 21.134 “1.274 
13 -13.3868 13.372 -63.875 657 21.125 -1..195 
13 -13.308 13.389 -68.883 - 668 ole i7 = 122s? 
13 “13.308 13.389 -68.392 664 21.168 -1.833 
13 -~13.3866 13.397 -68.900 ~667 21.1098 -. 3959 
13 -13.368 13.406 -68.989 671 21.891 -.389 
13 -13.308 13.414 -68.917 ~675 21.883 =.301 
13 -13.3868 13.422 -68.925 -678 21.675 =. vel 


106 











TABLE A-VI (CONT) 


RAY BETA THETRCRAY> NORMAL S ALPHA? RHO 2 
13 -13.309 13.431 -68.934 -682 21.066 -.542 
13 , 713.390 13.439 -68.942 685 21.958 -.562 
13 “13.300 13.447 -58.9590 639 21.059 -.482 
13 -13.309 13.456 -68.959 ~692 21.041 -.4382 
13 -13.300 13.464 -68.967 -696 21.033 -.322 
13 -13.300 13.472 -68.975 699 21.9025 ~.242 
13 -13.3090 13.481 -68.984 ~ 793 21.016 -,161 
13 -13.300 13.439 -58.992 .707 21.908 -.981 
13 -13.300 13.481 -68.984 ~ 703 21.916 =. 1S 
13 “13.300 13.481 -68.984 703 21.016 -. iSe 
13 -13.309 13.482 -68.985 704 21.015 -.145 
13 -13.390 13.483 -68.986 . 704 21.014 -.lsa 
13 -13.390 13.484 -638.987 . 704 21.013 —.127 
13 -13.309 13.485 -68.988 .705 21.012 = ae 
13 -13.300 13.486 -68.988 795 21.012 = lees 
T3 -13.300 13.486 -68.989 ~ 705 21.9011 -.105 
13 “13.300 13.487 -68.990 . 706 21.010 -.997 
13 -13.390 13.488 =6Sngo 706 21.009 =.90¢? 
13 -13.300 13.489 “68.992 ~707 21.008 -.031 
13 -13.300 13.490 -68.993 70? 21.007 -.072 
13 -13.300 13.498 -6S. 973 ~ 707 21.9007 -.965 
13 “13.300 13.491 -68.994 .708 21.806 -. O57 
13 -13.300 13.492 =-68.995 708 21.005 -.943 
13 “13.300 13.493 -68.996 708 21.004 -.449 
13 “13.390 13.494 -598.997 _ 789 21.003 -.9832 
13 “13.3090 13.495 -68.998 - 789 21.802 -.924 
13 “13.300 13.495 -68.998 ~°Q9 21.9002 -.9016 
13 -13.300 13.496 -68.999 -719 21.001 -.008 
13 -13.300 13.495 -68. 339 789 21.002 -.016 
13 -13.300 13.495 -68.998 . 709 21.002 -.015 
13 -13.300 13.496 -68.999 709 21.001 -.015 
13 -13.3090 13.496 -68.999 .709 21.001 -.014 
13 -13.300 13.496 -68.999 .799 21.001 -.913 
13 “13.300 13.496 -68.999 710 21.001 -.912 
13 -13.300 13.496 =65. 999 -718 21.001 -.911 
13 -13.3090 13.496 =66.979 -719 21.9001 =. O11 
13 “13.3090 13.496 -68.999 -710 21.001 -.919 
13 -13.309 13.496 -68.999 718 21.001 -.069 
13 -13.300 13.496 -58.999 718 21.001 -.003 
13 -13.3090 13.496 -68.999 -718 21.001 -.007 
13 -13.390 13.496 -68.999 710 21.9001 -. 006 
1S “13.300 13.496 -68.999 -719 21.9001 -.006 
13 “13.3080 13.497 -59.000 -719 21.000 -.005 
13 -13.390 13.497 -59.0800 718 21.000 -.804 
t3 “13.300 13.497 -69.00G -718 21.980 -. 003 
13 -13.308 13.497 -69.000 -718 21.809 -.802 


LO 











TABLE A-VI (CONT) 


RAY BETA THETACRAY) NORMAL $ ALPHA2 RHO 2 
13 -13.380 13.497 -69.808 718 21.808 -.002 
13 -13.300 13.497 -69.0690 ~-710 21.000 -.261 
13 -13.300 13.497 -59. 800 ~710 21.808 -. 802 
13 -13.300 13.497 -69.000 ~710 21.000 -.9082 
13 -13.308 13.497 -69. 800 ~-710 21.0800 -.301 
13 -13.300 13.497 -69.000 ~710 21.000 -.201 
13 13.308 13.497 -69.000 -718 21.000 -.9O1 
13 -13.300 13.9497 -59.008 -718 21.008 -. 901 
13 -13.300 13.497 -69.008 ~ 710 21.0800 -.001 
13 -13.300 13.497 -69.000 ~718 21.908 -.001 
13 -13.300 13.497 -69.000 -718 21.0800 -.301 
13 -13.300 13.497 -69.000 ~718 21.000 -.801 
13 -13.300 13.497 -69.000 ~718 21.000 -.901 
13 -13.380 13.497 -69.000 ~718 21.0808 -.001 
13 -13.380 13.497 -69. 800 ~718 21.808 -.801 
13 -13.300 13.497 -69.000 ~ 718 21.080 -.801 
13 -13.308 13.497 -69.000 -718 21.800 -. 200 
13 -13.300 13.497 -69.000 -710 21.008 -. 880 
13 -13.300 13.497 -69.008 -710 21.000 -.90n 
13 -13.308 13.497 -69.000 710 21.0080 -. 800 
13 -13.300 13.497 -69.008 -718 21.000 -. 808 
13 -13.300 13.497 -69.008 -710 21.008 -.2300 
14 -14.755 11.382 -66.385 - 980 23-115 -i43 735 
14 -14.755 11.490 -66.993 838 23.807 -14.170 
14 ~14.755 11.598 -67.101 ~ 876 22.399 -l3e572 
14 -14.755 11.706 -57.209 ~114 22.791 -12.,709 
14 -14.755 11.815 -67.318 ~152 22.682 =1:2.3¢1 
14 -14.755 11.924 ~67.427 198 22.573 =11. 669 
14 “14.755 12.034 =67.9s° ~227 22.463 -11.031 
14 -14.755 12.143 -67.646 -265 22.354 -10.357 
14 14.755 12.252 -67.755 ° 303 22.245 -9.663 
14 -14.755 12.361 -67.864 ~ 341 22.136 -8.962 
14 -14.755 12.478 -67.973 0379 22.027 -8.233 
14 -14.755 12.378 -68.081 ~417 21.919 -7.498 
14 -14.755 12.685 -68.188 455 21.812 -6.748 
14 -14.755 12.792 -68.295 493 21.7035 75. 3964 
14 14.755 12.397 -68.400 eS3t 21.600 -3.170 
14 -14.755 13.082 -68.505 - 369 21.495 -4.357 
14 -14.755 13.105 -68.608 686 21.392 “3.524 
14 ~14.755 13.206 -63. 709 644 21.291 -2.673 
14 14.755 13.305 -68.808 ~-682 21.192 -1.302 
14 ~-14.755 13.4082 -68.905 ~720 21.095 Sy led 
14 ~14.755 13.402 -63. 985 - 728 21.9095 = 3 Ske 
14 14.755 13.412 -68.915 724 21.9085 =,cel 
14 ~14.755 13.421 -68.924 ~ 728 21.876 -.730 











TABLE A-VI (CONT) 


RAY BETA THETACRAY> NORMAL S ALPHA? RHO 2 
14 -14.755 13.431 -68.934 732 21.866 -.649 
14 714.755 13.4438 -68.943 0735 21.957 -.5493 
i4 -14.755 13.458 -68. 9353 .739 21.847 =. 425 
14 14.755 13.459 -68.962 743 21.838 -.367 
14 -14.755 13.469 63.972 747 21.828 =.2%0 
14 -14.755 13.478 -68.981 7Si 21.819 -.184 
14 -14.755 13.488 =69.971 ~754 21.889 = og 
i4 -14.755 13.4883 =65. 991 ~ 754 21.889 -.992 
14 14.755 13.489 68.992 735 21.888 -.9S3 
14 -14.755 13.498 -68.993 0735 21.9087 -.874 
i4 -14.755 13.498 -68.993 «fos 21.987 -.064 
14 14.7355 Lona ot -68.994 756 21.886 -.955 
14 “14.755 13.492 -68.995 756 21.3885 -.046 
i4 -14.755 13.493 =65- 996 ~7357 21.804 -.83”° 
i4 =. °55 13.494 =69,,997 ofue 21.983 -.923 
14 19,795 13.495 -68.998 757 21.902 -.913 
14 -14.755 13.496 “69.299 .738 21.001 -.089 
14 “10 aS 13.496 -58.999 753 21.081 -.989 
14 -14.755 13.496 63.999 .758 21.9001 -.9888 
14 =13.759 13.496 =65..999 .753 21.881 -.887 
14 -14.735 13.496 -68.999 7358 21.901 -.886 
14 -14.755 13.496 =63..999 .758 21.001 -.886 
14 =14. 730 13.497 -69.808 ~738 21.888 -. 885 
14 -14.755 13.497 -69.808 758 21.008 -. 804 
14 -14.755 13.497 -69.889 .75S 21.3880 -.863 
14 -14.755 13.497 -69.808 738 21.900 -.882 
14 14.755 13.497 -69.089 Zo 21.908 -.601 
14 714.755 13.497 -69. 888 .758 21.888 -.901 
14 =14.750 13.497 -69. 089 758 21.889 -.901 
14 -14.735 13.497 -69.808 7358 21.888 -.001 
14 -14.735 13.497 -69.089 ~7398 21.880 -. 001 
14 -14.755 13.497 -69.008 7358 21.888 -. 801 
i4 -14.755 13.497 -69.800 758 21.888 -. 988 
14 -14.755 13.497 -69.808 .758 21.880 -.900 
14 714.755 13.497 -69.008 .7358 21.9388 -. 988 
14 -14.755 13.497 -69.808 27358 21.888 -.988 
14 ~14.755 13.497 -69. 008 2738 21.888 -. 988 
15 -16.328 11.885 66.5388 @.808 23.412 -16.320 
15 -16.328 11.2905 -66.788 - 948 23.292 -135.694 
15 -16.320 11.327 -66.838 - 881 23.178 -15.052 
13 -16.320 11.449 -66.952 e121 23.948 -14.393 
iS 16.320 11.572 -67.875 ~ 161 22.925 “135725 
15 -16.328 11.696 -67.199 -202 22.881 =. 3.6019 
15 -16.329 11.329 -67.323 242 22.677 -12.385 
15 -16.329 11.944 -67.447 282 22.553 “11.578 


ag 











TABLE A-VI (CONT) 


RAY BETA THETACRAY > NORMAL S ALPHA? RHO 2 
15 -16.320 12.969 =67. or 2 «322 22.428 -19.816 
15 -16.329 L2e193 -67.696 363 22.304 -10.041 
1S -16.329 12.318 -67.821 » 433 22.179 -9.245 
13 -16.329 12.442 -67.945 » 443 22.855 “8.427 
1S -16.329 12.565 -68.968 ~ 484 21.932 -(.997 
1S -16.328 12.688 -68.191 0524 21.899 “6.724 
15 -16.329 12.809 -68.312 » 564 21.688 -3.338 
1S -16.320 {2.929 -68.432 - 685 21.568 -4.927 
1S -16.329 13.947 -68.550 ~645 21.458 =39o2 
1S -16. 328 13.164 -68.667 685 21.333 -3.933 
1S -16.320 {ouard -68.782 ~726 21.229 -2.38483 
1S -16.320 13.389 -68. 392 766 21.188 =1.237¢ 
15 -16.329 13.278 -68. 789 ~ 726 21.229 -2.948 
1S -16.329 13.289 -68.792 738 21.298 -1.948 
15 -16.329 13.3080 -68. 803 ~ 734 21.197 -1.348 
1S -16.328 LSeort -68.814 ~°38 21.186 =. 0s0 
15 -16.329 13.322 -68. 825 742 21.175 -1.546 
1S -16.329 13.334 -68.836 746 21.164 -1.546 
1S -16.329 13.345 -68.348 759 21.152 -1.444 
15 -16.329 13.356 -68.359 7354 21.141 -1.343 
vs -16.320 13.367 -68.8790 ~ 758 21.130 -1.241 
1S -16.329 13.378 -68.881 - 762 21.119 ={...99 
15 -16.329 13.389 -58.392 - 766 21.198 -1.037 
15 -16.329 13.409 -68. 3903 ~779 21.997 ~.3934 
1S ~-16.320 13.411 -68.914 0774 21.986 =.9S2 
1S -16.328 13.422 -68.925 778 21.9875 =.12° 
15 ~16.320 13.432 -68.935 - 782 21.8065 =-.623 
1S -16.320 13.443 -68.946 ~ 786 21.954 -.522 
15 -16.320 13.454 -68. 3957 - 798 21.943 -.418 
1S -16.329 13.465 -68.968 0794 21.932 -.314 
LS -16.320 13.476 =66.509 798 21.821 -.209 
1S -16.320 13.486 -68.989 - 302 21.011 -.105 
15 -16.329 13.486 -68.989 - 882 21.911 -.105 
15 -16.329 13.487 -68.999 893 21.9819 -.894 
1S ~16.329 13.489 -68.991 - 803 21.989 -.384 
15 -16.328 13.499 -68.993 -393 21.907 -.973 
15 -16.329 13.491 -98.994 - 804 21.906 -.063 
1S -16.329 13.492 -68.995 - 334 21.085 -.9052 
1S -16.329 13.493 -68.996 805 21.804 -.042 
15 -16.329 13.494 -68.997 - 885 21.803 -.931 
15 -16.329 13.495 -68.998 ~ 895 21.802 -.921 
15 -16. 320 13.496 -68.999 - 806 21.901 -.018 
1S -16. 329 13.496 -68.999 - 886 21.081 -.018 
15 -16.320 13.496 -68.999 - 806 21.9001 -.089 
1S -16.320 13.496 -68.999 - 806 21.9001 -.903 
15 -16.3290 13.496 -68.999 - 886 21.9001 -,007¢ 


— 











TABLE A-VI (CONT) 


RAY BETA THETACRAY> NORMAL s ALPHA] RHO 2 
15 -16.320 13.496 -63.999 - 806 21.901 ~.336 
135 -16.320 13.497 -63.999 - 806 21.9001 -.065 
1S -16.320 13.497 -69.000 - 306 21.0380 -.0B4 
15 -16.320 13.497 -69.300 - 306 21.009 -.963 
15 -16.320 13.497 -69.000 - 806 21.000 -.902 
15 -16.320 13.497 -69.000 - 306 21,9000 -.001 
1S -16.320 13.497 -69.000 - 806 21.300 -.901 
15 -16.320 13.497 ~69.000 ~ 306 21.000 -.001 
15 -16.320 13.497 -69.000 ~ 306 21.090 -.901 
1S -16.329 13.497 -69.000 - 806 21.800 -.981 
1S -16.320 13.497 -69.300 - 306 21.000 -.001 
1S -16.320 13.497 -69.008 - 806 21.9000 -.001 
1S -16.320 13.497 -69.000 - 806 21.3800 -.000 
15 -16.320 13.497 -69. 3860 - 806 21.000 -.800 
15 -16.3290 13.497 ~69.300 - 806 21.000 -. 909 
15 -16.328 13.497 -59.000 - 806 21.908 -.309 
16 -18.005 10.749 ~66.252 - 900 23.748 -18.005 
16 -13.005 10.333 ~66.386 - 043 23.614 ~17.341 
16 -18.005 11.019 -66.522 985 23.478 ~16.657 
16 “18.005 11.156 -66.659 ores 23.341 -15.9S52 
16 ~18.005 11.294 “66.797 oll 23.203 =. 228 
16 -18.805 11.434 -66.937 214 23.063 -14.477 
16 -18.005 11.574 -67.077 ~256 22.923 “13.704 
16 -18.005 11.715 =O6reLic 2299 22.782 -12.9083 
16 -13.005 11.857 -67.360 ~ 342 22.640 -12.087 
16 -18.005 1. 999 -67.502 » 384 22.498 “11.240 
16 -18.005 12.141 ~67.644 427 22.356 “18.367 
16 -18.005 12.283 -67.786 ~ 478 22.214 -9.,467 
16 -18.005 12.425 -97.928 -313 22.072 -8.533 
16 -18.905 12.566 -68.069 ~555 21.931 -7.389 
16 -18.005 12.706 -68.209 - 598 21.791 -6.593 
16 -18.005 12.344 -68.347 ~641 21.653 -S5.570 
16 -18.005 12.980 -68.483 - 683 21.517 -4,525 
16 -18.005 13.114 -68.617 ~ 726 21.383 -3.444 
16 -18.005 13.245 -68.748 fog 21.252 "2.329 
16 -18.005 13.373 -68.876 -81l 21.124 -1.182 
16 -18.005 13.245 -68.748 769 21.252 -2.329 
16 -18.005 13.258 -68.761 2773 21.239 -2.216 
16 -13.005 13.271 -68.774 fer 21.226 -2.1603 
16 -138.005 13.284 -68.787 ~732 21.213 =1. 999 
16 “18.005 134297 -68. 808 - 786 21.208 -1.874 
16 -18.005 13.3190 -63.813 ~ 790 21.187 -1.760 
16 -18.005 13.323 -68.826 ~ 7°94 21.174 -1.645 
16 -18.005 13.335 -68.833 799 21.162 -1.5390 
16 -18.005 13.343 -68.251 - 883 21.149 -1.414 











TABLE A-VI (CONT) 


RAY BETA THETACRAY) NORMAL S ALPHAR2 RHO 2 
16 -18.9085 13.361 ~68.364 . 887 21.136 = 29s 
16 -18.085 loa373 -68.876 -8i1 21.124 =~leg2 
16 -18.805 13.386 -63.889 -316 et. tit -1.865 
16 -18.905 13398 -68.901 - 3820 21.099 -.948 
16 -18.005 13.411 -68.914 824 21.886 =o 
16 -18.005 13.423 -68.926 -329 21.074 =a0 us 
16 -18.805 13.436 -68. 939 - 833 21.061 -.595 
16 -18.005 13.448 -63.951 - 837 21.049 -.477 
16 -18.905 13.460 -63.963 - 841 21.037 -.358 
16 -18.985 13.473 -68.976 - 846 21.024 =. 209 
16 -18.805 13.485 ~68. 988 . 858 21.012 =e oO 
16 -18.005 13.473 -68.976 - 346 21.024 “o229 
16 -18.005 13.474 -68.977 - 846 21.9023 -.2a0 
16 -18.005 13.475 -68.978 - 847 21.022 -.ah. 
16 -18.005 13.476 =6S. 979 . 847 21.021 -.<93 
16 -18.0905 13.478 -68.980 847 21.9028 => 
16 -18.095 13.479 -68.982 - 848 21.818 =. 009 
16 -18.005 13.488 -68.983 - 848 21.9017 -.168 
16 -18.005 13.481 -68. 984 . 849 21.016 =. 130 
16 -18.905 13.482 -68.985 . 349 21.815 -~.144 
16 -18.005 13.484 -68.987 - 350 21.013 =, Log 
16 -18.9805 13.485 -68.988 - 350 21.012 =sl20 
16 -18.905 13.486 -68.989 - 858 21.611 ~.1938 
16 -18.9005 13.437 -68.9980 -851 21.016 -.096 
16 -18.805 13.489 =695.771 - 851 21.009 -.884 
16 -18. 895 13.490 -68.993 -852 21.007 =e 
16 -18.0805 13.491 -68.994 «ode 21.006 -. 066 
16 -18.005 13.492 ~68.995 . 852 21.005 -.848 
16 -18. 005 13.493 -68.996 “sae 21.004 -.636 
16 -18.005 13.495 -68.998 - 853 21.002 -.924 
16 -18.085 13.496 -68.999 - 854 21.001 -.912 
16 -18.005 13.496 -68.999 - 854 21.001 -.@012 
16 -18.8085 13.496 -68.999 - 854 21.9001 =O 
16 -18.095 13.496 =98..499 - 854 21.001 -.018 
16 -18.005 13.496 -68.999 . 854 21.001 -.888 
16 -18.005 13.496 =68 399 - 854 21.001 -.007 
16 “18.005 13.496 -68.999 . 854 21.9001 -. 806 
16 -18.9005 13.497 -69.000 .854 21.000 -. 8905 
16 -18.005 13.497 -69.008 354 21.880 -.084 
16 -18.805 13.497 -69. 000 . 854 21.900 -.802 
16 -13. 005 13.497 -69.060 - 354 21.088 -. 001 
16 -18. 085 13.497 -69. 000 - 354 21.808 -.802 
16 -13.005 13.497 -69. 000 854 21.808 -. 002 
16 -18.005 13.497 -69.008 854 21.808 ~. 002 
16 -18.005 13.497 -69.000 .354 21.808 -. 802 
16 -18. 005 13.497 -69.008 . 854 21.008 -. 882 


Le 











TABLE A-VI (CONT) 


RAY BETA THETACRAY > NORMAL Ss ALPHA2 RHO 2 
16 -18.005 13.397 -69.000 354 21.000 -.002 
16 -18.005 13.497 -69.080 . 3854 21.8890 -.002 
16 -18.005 13.497 -69.009 854 21.9090 -. 802 
16 ° 18.005 13.497 -69.0090 - 354 21.009 -. 801 
16 -13.005 13.497 -59. 000 354 21.900 -.901 
16 -18.005 13.497 -69.000 ~ 354 21.0090 =, 00! 
16 “13.9005 13.497 -69.000 .354 21.900 -. 801 
16 -13.005 13.497 -69.0090 ~S54 21.000 -. 901 
16 -13.005 13.497 -69.000 354 21.000 -.901 
16 -13.005 13.497 -~69.000 ~ 354 21.9000 -. 061 
16 -18.9005 13.497 -99.000 ~ 354 21.000 -.001 
16 -18.005 13.497 ~o9.000 ~ 354 21.000 -. 9300 
16 -18.005 13.497 -69.000 . 854 21.900 -.969 
16 ~18.9005 13.497 -59.000 854 21.900 -.905 
16 -18.005 13.497 -69.000 - 354 21.000 -.900 
17 -19.823 19.369 -65.872 - 880 24.128 -19.¢e0¢ 
Wg ~19.823 10.517 -66.029 ~945 23.989 “19.124 
17 -19.823 10.668 =66. 171 - 998 23.829 -13.409 
ne -19.823 10.321 -96.323 ~135 23.677 -17.652 
17 ~19.823 10.975 -66.478 - 1380 23.522 ={6.a73 
17 -19.823 11.132 -66.635 .226 23.365 “16.077 
7 -19.823 11.2998 "60.793 -27t 23.207 -15.243 
i? -19.823 11.459 -66.9353 ~ 316 23.047 -14.389 
i? -19.823 tt.oltt “67.114 - 361 22.386 -13.500 
17 -19.823 Li een3 -6°.275 ~ 406 22.725 =l2aw me 
17 -19.823 11.935 -67.438 ~ 451 e2.562 -11.624 
L? -19.823 12.093 -67.601 » 496 22.399 -10.636 
17 -19.823 12.261 -67.764 341 22.236 -3.612 
17 =19.823 12.423 -67.926 586 22.074 -3. 552 
17 -19.823 12.584 -68.9087 »832 et.913 ~7.454 
i? -19.3823 12.744 -68.247 2077 2et./733 -6.316 
t7 +19 .323 12.902 -68.405 722 21.595 =3.133 
i? -19.823 13.9056 -68.559 oor 21.441 -3.913 
17 -19.3823 13.298 =638.711 ~8i2 21.239 -2.656 
Le “19.823 13.355 -68.858 857 21.it42 -1.359 
17 -19.823 13.208 -6S.71t1 ~812 21.289 -2.656 
17 =o .cas 13.223 -68.726 ~817 21.274 -2.527 
17 =19.323 13.238 -68.741 -821 21.259 -2.393 
17 -19.823 13.252 -63.755 ~- 826 21.245 -2.269 
17 -19.323 13.267 -63.779 - 330 21.2390 =2.139 
4 -19.823 13.282 "63.785 » 835 21.2t5 -2.9009 
.7 -19.823 13.297 -68.800 ~339 21.200 -1.378 
17 “19.823 13.311 -68.3814 344 21.186 <1. 7a 
L7 -19.823 13.326 -63.3829 » 348 2i.i7t -1.60%3 
17 =19.S23 13.340 -68.843 ~ 3853 2lwo? -1.483 











TABLE A-VI (CONT) 


RAY BETA THETACRAY) NORMAL S ALPHR2 RHO 2 
Le =195823 13.355 -68.858 .357 21.142 -1.359 
lig -19.823 13.369 -68.872 - 862 21.128 ~logie 
lv =19.823 13.384 -68.3887 - 866 21.113 -1.084 
17 j9.S¢3 13.398 -638.901 871 21.0899 -. 959 
17 -19.823 13.412 -68.915 -875 21.085 -.816 
ie -19.823 13.427 -68.930 - 8382 21.070 -.681 
1? -19.823 13.441 -68.944 884 21.056 -.545 
a “19.823 13.455 -68.958 - 889 21.842 -.418 
lv =19.823 13.469 -68.972 ~393 21.9828 ~.2°4 
ie -19.823 13.483 -68.986 -898 21.014 =n 
17 -19.823 13.497 -69.000 - 982 21.000 -.808 
18 -21.784 9.933 -65.441 8.309 24.559 -21.784 
18 -21.784 10.1901 -55.604 - 848 24.396 -21.855 
18 -21.784 18.267 -65.770 @95 24.238 “BGacor 
18 -21.784 18.436 -65.939 ~143 24.061 -19.599 
18 -21.784 18.688 =“6Gelt! 139 23.889 -18.691 
18 -21.784 19.782 -66.285 ~238 23.715 -17.848 
18 -21.784 18.968 -66.463 ~285 23.537 -16. 39835 
18 21.784 11.148 -66.643 © 333 23.357 -16.035 
18 -21.784 11.322 -66.825 ~ 388 23.175 =15. 0c 
18 -21.784 11.586 -67.809 ~428 22.991 -14.088 
18 -21.784 11.692 -67°.196 2475 22.805 -13.342 
18 21.784 11.378 =67.091 S23 22.619 =1 17251 
18 -21.784 12.966 =67 .069 5798 22.431 “18.335 
18 21.784 12.253 -67.756 -618 22.244 -9.663 
18 -21.784 12.439 =67~. 24@ 665 22.858 -8.443 
18 21.784 12.625 -68.127 713 21.873 =7 lige 
18 21.784 12.80? -68.318 768 21.698 “5.3849 
18 -21.784 12.987 -68. 498 838 21.518 -4.472 
18 -21.784 13.163 -53.666 ~855 21.334 -3.839 
18 21.784 13.333 -68.836 ~ 983 21.164 -1.549 
18 -21.784 13.333 -68.836 983 21.164 -1.549 
18 21.784 13.350 -68. 853 988 21.147 -1.297 
18 21.784 13.367 -68.869 Fie 21.131 -1.244 
18 -21.784 13.383 -68.886 o Si 21.114 -1.398 
18 -21.784 13.4938 -68.983 ~922 21.897 -.936 
18 21.734 13.416 65.919 ~927 21.9081 “.756@ 
18 -21.784 13.432 -68.935 931 21.065 -.627 
18 -21.784 13.449 68.952 ~ 936 21.848 ~.471 
18 -21.784 13.465 -68.968 ~ 941 21.832 -.314 
18 21.784 13.481 -68.984 ~ 946 21.016 -. 136 
18 -21.784 13.481 -68.984 ~ 946 21.9816 =. 1G 
1s -21.734 13.483 -68.986 946 21.814 -.142 
18 21.734 13.484 -63.987 ~ 947 21.013 = l2o 
18 "21.784 13.486 =68.959 ~947 21.011 -~.119 














TABLE A-VI (CONT) 


RAY BETA THETACRAY) NORMAL S ALPHAR2 RHO 2 
18 ~21.784 13.487 ~68.990 947 21.0190 -.095 
13 -21.784 13.489 -68.992 - 948 21.008 -.979 
13 -21.784 13.491 ~68.994 948 21.006 -.063 
18 -21.784 13.492 -68.995 ~ 949 21.9005 -.047 
18 ~21.784 13.494 ~68.997 ~ 949 21.903 -.032 
18 -21.784 13.495 -68.998 ~ 958 21.002 ~.016 
18 -21.784 13.495 -68.998 959 21.802 -.9016 
13 -21.784 13.496 =63. 999 - 958 21.001 -.814 
18 ~21.7°84 13.496 -68.999 959 21.0601 -.¥W13 
18 ~21.784 13.496 -68.999 ~ 958 21.001 -.011 
13 ~21.°84 13.496 -68.999 - 959 21.001 -.009 
13 ~21.7°84 13.496 -68.999 ~ 959 21.001 -.003 
18 -21.784 13.496 “63. 99> 9590 21.9001 ~. 306 
13 ~21.784 13.497 -69.000 ~ 959 21.080 -.905 
18 -21.784 13.497 -69.009 ~ 950 21.908 -.903 
18 -21.784 13.497 -69. 000 ~ 9598 21.9000 -.902 
18 ~21.784 13.497 ~69.000 ~ 950 21.000 ~.002 
18 ~21.784 13.397 -69.000 - 959 21.900 -.001 
138 -21.784 13.497 -69.0060 ~ 950 21.900 -.091 
18 -21.784 13.497 -69.000 ~ 950 21.900 -.801 
18 “21.784 13.497 -69.000 950 21.900 -.901 
18 -21.784 13.497 -69.000 950 21.0080 -.901 
18 -21.7934 13.497 -59.000 959 21.9000 -.001 
18 ~21.784 13.497 ~69.000 958 21.008 -.000 
138 ~21.784 13.497 ~69.000 ~ 958 21.9006 ~.000 
18 -21.784 13.497 -69.000 ~ 950 21.000 -. 000 
19 -23.903 9.459 -64.953 - 800 25.047 ~23.903 
13 -23. 903 9.526 -65.129 - 959 24.871 ~23.149 
19 -23.903 9.3087 -65.319 - 180 24.690 -22.362 
19 -23.9083 9.993 -65.496 -150 24.504 -21.541 
19 -23.903 10.182 -65.685 - 200 24.315 -20.684 
Nee -23. 993 10.376 -65.379 ~ 250 24.121 -19.788 
1? ~23.903 10.574 -66.077 - 308 23.923 -18.851 
L? -23. 9083 10.776 -66.279 0 349 23.72i “17.872 
19 -23. 9083 18.981 -66. 484 399 23.516 -16.847 
19 23.903 11.190 ~66.693 ~ 449 23.307 => (a2 
19 -23. 9083 11.402 -36. 905 » 499 23.9895 -14.649 
19 -23.903 11.616 -67.118 2549 22.882 ~13.472 
19 ~23.9083 11.831 -67.334 - 599 22.666 -12.239 
V9 ~23.983 12.047 -67.550 -649 22.4590 -10.945 
19 -23. 9083 12.264 -67.767 -699 22.233 -9.591 
19 ~23.903 12.480 -67.983 0749 22.017 “8.172 
19 -23.9083 12.693 -68.196 799 21.304 ~6.684 
1:9 -23.903 12.983 -68.406 349 21.594 -5.126 
1? -23.9083 13.108 ~68.611 ~899 21.389 -3.494 


EES 








TABLE A-VI (CONT) 


RAY BETA THETACRAY)D NORMAL Ss ALPHA2 RHO 2 
19 -23.903 13.3907 -63.810 . 948 21.198 -1.786 
19 -23.903 13.497 -69.000 998 21.9990 -.008 
2 -26.199 8.395 -54.398 @.900 25.602 -26.199 
290 -26.199 9.985 -64.588 .052 25.412 -25.421 
20 -26.199 9.2390 -64.783 105 2Sce 17. -24.615 
20 -26.190 9.481 -54.984 157 25.016 -23.769 
20 -26.190 9.688 -65.191 . 209 24.309 -22.330 
20 -26.190 9.392 -65.405 262 24,595 ~21.3946 
20 -26.190 1daiet -65.624 314 24.376 -290.964 
20 -26.199 10.346 -65.349 . 366 24.151 -19.931 
20 -26.190 10.576 -66.979 419 23.921 -18.342 
20 -26.190 10.312 -66.315 471 23.685 -17.695 
20 -26.199 11.852 -66.555 .523 23.445 -16.486 
20 -26.190 11.297 -66.800 ~576 23.200 -15.219 
z -26.199 11.545 -67.0848 628 22.952 -13.363 
20 ~26.190 11.796 -67.299 680 22.7901 -12.441 
20 -26.1990 12.349 -67.552 Ferg 22.448 -19.948 
20 -26.199 12.3901 -67.304 735 22.196 -9.354 
20 -26.199 12.552 -68.855 337 21.945 -7.573 
20 -26.190 12.799 ~68.302 8389 21.698 -5§.910 
20 -26.190 13.841 -68.544 942 21.456 -4.343 
20 ~26.190 13.274 -68.777 994 21.220 -2.075 
= -26.199 13.497 -69.908 1.046 21.600 -.909 
21 -28.661 8.267 -63.770 9.990 26.230 -28.661 
21 -28.661 8.467 -53.979 .355 26.9839 -27.3382 
21 -28.661 8.674 ~64.177 199 25.823 -27.073 
21 -~28.661 8.890 -64.393 164 25.607 -26.213 
2i -28.661 9.113 -64.616 2219 25.384 -25.305 
21 -28.661 9.345 -64.348 274 25.152 -24.344 
21 -28.661 9.585 -65.988 328 24.912 ~23.326 
21 -28.661 9.333 -65.336 383 24.664 -22.243 
a4 -28.661 10.990 -65.593 438 24.407 -21.184 
21 -28.661 10.355 -65.3858 493 24.142 -19.339 
at -28.661 10.627 ~66.139 ~547 23.870 -18.598 
21 -28.661 10.996 -66.4289 602 23.591 -17,224 
a -28.661 tiato2 -66.695 657 23.395 -15.762 
21 ~28.661 11.484 -66.987 iil 23.013 -14.204 
21 -28.661 11.779 ~67.282 - 766 22.718 -12.343 
2 -28.661 12.976 -67.579 821 22.421 -10.771 
21 -28.661 12.373 -67.876 876 22. 12s -8.882 
21 -28.661 12.667 -68.170 930 21.3390 -6.368 
21 -28.661 12.956 -68.459 985 21.541 -$.721 
21 -28.661 13.234 -68.737 1.840 21.263 -2.433 
21 -28.661 12.956 -68.459 985 212541 -4,721 


116 











TABLE A-VI (CONT) 


RAY BETA THETACRAY> NORMAL S ALPHA2 RHO 2 
an -23.661 12.984 -68.487 - 990 21.513 -4.498 
2i -28.661 13.012 “68.515 2996 21.485 “4.274 
2i -28.661 13.049 -68.543 1.001 21.457 -4.849 
21 28.66 13.068 -68.S571 1.007 21.429 -3.823 
21 -28.661 13.096 -68.599 1.012 21.401 -3i2o5 
21 -28.661 13.124 -68.627 1.018 21.373 -3.365 
2i -28.661 13.1235! -68.654 1.823 21.346 -3.134 
21 -28.661 13.179 -68.682 1.829 21.318 2.902 
2i -28.661 13.206 -68.789 1.834 21.291 -2.663 
21 -28.661 13.234 -68. 737 1.840 21.263 -2.433 
2i -28.661 13.261 -68. 764 1.045 21.236 ~20 ot 
21 -28.661 13.288 “68.791 1.051 21.209 -1.958 
an -28.661 13.314 -68.317 1.856 21.183 -l oie 
ol -28.661 13.341 -68.344 1.862 21.156 =Vaains 
21 -28.661 13.367 -68.870 1.067 21.130 =le2s0 
al “28.661 13.394 -68.897 1.873 21.183 =o. 
el -28.661 13.420 -63.923 1.878 21.077 -. 746 
at -28.661 13.446 -68. 949 1.084 21.051 -.499 
2i -28.661 13.471 -68.974 1.889 21.026 -.250 
21 -28.661 13.471 68.974 1.889 21.026 -.250 
21 -28.661 13.474 “68.977 1.898 21.0823 -.225 
ot -28.661 13.477 -68.980 1.899 21.0829 -.200 
21 “28.661 13.479 -68.982 1.691 21.018 =. lms 
z -28.661 13.482 -68.985 1.091 21.015 -. 39 
2i -28.661 13.484 -68.987 1.092 21.013 = he 
21 -28.661 13.487 -68.990 1.092 21.010 -. 1080 
a -28.661 13.489 -68.992 1.893 21.808 -.075 
at -28.661 13.492 -68.995 1.093 21.805 -.058 
a -28.661 13.494 -68.997 1.8094 21.003 -.025 
2t -28.661 13.497 -69.008 1.8094 21.088 -.v0a0 
21 -28.661 13.494 -68.997 1.894 21.803 -.025 
21 -28.661 13.495 -68.998 1.094 21.002 -.823 
21 -28.661 13.495 -68.998 1.894 21.002 -.920 
2i -28.661 13.495 -68.998 1.094 21.002 =. on.3 
2t 28.661 13.496 -68.998 1.094 21.002 -.015 
er -28.661 13.496 -68.999 1.994 21.801 -.013 
21 -28.661 13.496 "68.999 1.094 21.001 -.918 
21 -28.661 13.496 -68.999 1.094 21.001 -.808 
21 -28.661 13.497 “68.999 1.094 21.001 -.885 
21 -28.661 13.497 -69.000 1.094 21.800 -. 983 
21 -28.661 13.497 -68.999 1.094 21.001 -.805 
21 -28.661 13.497 -69.000 1.094 21.000 -.085 
21 -28.661 13.497 -69.000 1.094 21.300 -.0935 
21 -28.661 13.497 -69. 000 1.094 21.080 -. 804 
21 -23.661 13.497 -69. 000 1.094 21.900 -. 004 
2t -28.661 13.4997 -69. 800 1.094 21.900 -.804 
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TABLE A-VI (CONT) 


RAY BETA THETACRAY) NORMAL Ss ALPHA? RHO 2 
21 -23.661 13.497 -69.908 1.994 21.089 -. 004 
21 -28.661 13.497 -69. 960 1.994 21.0900 -.083 
21 -28.661 13.497 -69.099 1.994 21.9908 =. 003 
21 -28.661 13.497 -69.999 1.994 21.988 -.393 
21 -28.661 13.497 -69.099 1.994 21.990 -.993 
21 -238.661 13.497 -69.999 1.994 21.999 -.092 
ei -28.661 13.497 -69.909 1.994 21.999 -.992 
zl -28.661 13.497 -69.999 1.994 21.999 -.092 
2i -28.661 13.497 -69.999 1.094 21.999 -.002 
21 -28.661 13.497 -69.989 1.994 21.999 -.991 
21 -23.661 13.497 -69.999 1.994 21.999 -.991 
21 -28.661 13.497 -69.999 1.994 21.999 -.3001 
21 -28.661 13.497 -69.999 1.994 21.999 -.991 
21 -28.661 13.497 -69.999 1,994 21.999 -.999 
22 -31.326 7.956 -63.958 9.999 26.942 -31.326 
22 -31.326 7.762 -63.265 ~95?7 26.735 -39.564 
22 “31.326 1.909 -63.482 ~114 26.513 =27.0 76 
22 -31.326 8.295 -63. 798 a liad 26.292 -23.898 
22 -31.326 8.442 -63.945 .229 26.955 -2°7.985 
22 -31.326 3.699 -64.193 » 286 25.897 “27.012 
22 -31.326 8.949 -64.452 » 343 25.548 -25.974 
22 -31.326 9.219 -64.722 » 499 2.2/8 -24.368 
22 -31.326 9.592 -65.995 0457 24.995 -23.639 
22 -31.326 32796 =6 «299 514 24.791 -22.419 
22 -31.326 19.193 -65.696 2371 24.394 -21.946 
22 -31.326 19.428 -635.923 -628 24.877 -“19.°382 
22 -31.326 19.749 -65.252 686 23.748 -18.895 
22 =31.326 11.987 -66.599 - 743 23.419 -16. 3908 
22 -31.326 11.434 -66.937 899 23.963 -14.477 
22 “31.326 11.786 -67.289 ~857 22.711 “12.591 
22 -31.326 12.141 -67.644 ~914 22.356 -19.367 
22 -31.326 12.496 -67.999 s oral 22.991 -3.063 
22 -31.326 12.3844 -68.347 1.928 21.653 Ie) cal te 
22 -31.326 13.189 -68.6383 1.985 21.317 -2.891 
22 -31.326 12.344 -68.347 1.028 21.653 -3.5735 
22 "31.326 12.878 -63.381 1.934 21.619 -5.315 
22 -31.326 L2.913 -68.415 1.849 21.585 -5.854 
ee -31.326 12.947 -68.459 1.945 21.559 -4.791 
22 "31.326 12.980 -63.483 1.951 21.517 -4.525 
22 -31.326 13.914 -68.517 1.957 21.483 -4.253 
22 -31.326 13.948 -68.551 1.963 21.449 Soe aie 
22 -31.326 13.981 -68.584 1.968 21.416 = Stent lit 
22 -31.326 13.114 -58.617 1.974 21.383 -3. 444 
22 -31.326 13.147 -63.659 1.939 21.359 -3.168 
22 -31.326 13.189 -68.683 1.9385 21.317 -2.3891 











TABLE A-VI (CONT) 


RRY BETR THETACRRY > NORMAL S RLPHA2 RHO 2 
22 -31.326 13.213 -68.716 1.991 21.284 -2.611 
22 -31.326 13.245 -68.748 1.997 21.252 -2.339 
22 "31.326 13.278 -63.781 1.1@3 21.219 -2.945 
22 -31.326 13.310 -68.313 1.1908 21.187 -1.768 
< -31.326 13.342 -68.845 1.114 21.155 “1.472 
22 -31.326 13.373 -68.876 1.120 21.124 -1.182 
22 -31.326 13.495 -68.998 1.125 21.9092 -.396 
22 “31.326 13.436 -63.939 1.131 21.061 -, 974 
22 31.326 13.466 -63.969 1.137 21.931 -.629 
22 -31.326 13.7436 -68.939 1.131 21.061 =. 595 
22 -31.326 13.439 -68.942 1.132 21.958 -. 566 
22 “31.326 13.442 “68.945 1.132 21.955 =. 256 
22 -31.326 13.445 -68.948 1.133 21.952 -.596 
22 31.326 13.448 -68.951 1.133 21.949 -. 477 
22 -31.326 13.451 -68.954 1.134 21.946 -.447 
22 -31.326 13.454 -68.957 1.135 21.943 -.418 
22 -31.326 13.457 -68. 968 1.135 21.049 -.333 
22 -31.326 13.469 -63.963 1.136 21.837 -. 338 
22 31.326 13.463 -58.966 1.136 21.934 -.323 
22 -31.326 13.466 -68.969 1.137 21.931 = 200 
22 -31.326 13.479 -68.973 1.137 21.927 -.269 
22 -31.326 13.473 -68.976 1.138 21.924 *,2s2 
22 -31.326 13.476 -68.979 1.139 21.921 -.299 
22 31.326 13.479 -68. 982 1.139 21.913 = lu? 
22 -31.326 13.482 -68.985 1.149 21.915 -.159 
22 -31.326 13.485 -68.988 1.149 21.912 ~ile 
22 31.326 13.488 -68.991 1.141 21.999 -.039 
22 -31.326 13.491 -68.994 1.141 21.996 -. 360 
22 “31.326 13.494 -698.997 1.142 21.993 -.930 
22 31.326 13.491 -68.994 1.141 21.906 -.960 
22 -31.326 13.491 -68.994 1.141 21.996 =, 0S" 
22 -31.326 13.492 -68.995 1.141 21.095 -.954 
22 -31.326 13.492 "63.995 1.142 21.885 -.951 
22 -31.326 13.492 -63. 995 1.142 21.995 -.943 
22 -31.326 13.492 -68.995 1.142 21.895 -.945 
22 “31.326 13.493 -68.996 1.142 21.904 -.942 
22 -31.326 13.493 “68.996 1.142 21.9834 -.939 
22 -31.326 13.493 -68.996 1.142 21.904 -.936 
22 -31.326 13.494 -68.997 1.142 21.983 -.933 
22 -31.326 13.494 "6G. 09° 1.142 21.993 -. 038 
22 -31.326 13.494 -68.997 1.142 21.993 -.927 
22 “31.326 13.495 -68.998 1.142 21.092 -.924 
22 -31.326 13.495 -68.998 1.142 21.002 -.921 
22 -31.326 13.495 -63.998 1.142 21.992 -.018 
22 -31.326 13.496 -63.998 1.142 21.062 915 
22 “31.326 13.496 -68.999 1.142 21.9901 -.912 











TABLE A-VI (CONT) 


RAY BETA THETACRAY > NORMAL S ALPHAR2 RHO 2 
22 -31.326 13.496 =68.999 1.142 21.001 -.809 
22 -31.326 13.496 -63..999 1.142 21.001 -.006 
22 -31.326 13.397 -69.000 1.142 21.08 -.9883 
22 ~31.326 13.496 -58.999 1.142 21.001 -.905 
22 -31.326 13.496 =639. 999 t.142 21.001 -. 006 
22 -31.326 13.496 -68.999 1.142 21.001 -.005 
22 -31.326 13.497 -68.999 1.142 21.001 -.905 
22 -31.326 13.497 -69.000 1.142 21.000 -.005 
22 -31.326 13.497 -69.000 1.142 21.000 -.304 
22 31.326 13.397 -59. 008 1.142 21.000 -.004 
22 -31.326 13.497 -69.000 1.142 21.000 -.004 
22 31.326 13.497 -69.000 1.142 21.000 -. 0604 
22 -31.326 13.497 -69.000 1.142 21.000 -.903 
22 -31.326 13.497 -69.000 1.142 21.008 -.803 
22 -31.326 13.497 -69. 000 1.142 21.000 -.0O3 
22 "31.326 13.497 -69.000 1.142 21.000 -.@02 
22 31.326 13.397 -69.000 1.142 21.000 -.802 
22 -31.326 13.497 -69.000 1.142 21.000 -.002 
22 -31.326 13.497 -69.008 1.142 21.000 -.001 
22 “31.326 13.497 -89.000 1.142 21.000 -.001 
22 -31.326 13.497 -69.000 1.142 21.000 -.681 
22 -31.326 13.497 -69.000 1.142 21.000 -.@81 
22 -31.326 13.497 -69.008 1.142 21.000 -.008 
23 -34.198 6.753 -62.256 0.000 27.744 -34.198 
23 -34.198 6.961 -62. 464 - 860 27.536 -33.465 
23 -34.198 7.181 -62.684 e119 27.316 -32.683 
23 ~34.198 7.413 -62.916 .179 27.084 -31.346 
23 -34.198 7.658 -63.161 - 238 26.839 -30.949 
23 -34.198 7.917 -63.420 298 26.588 -29.986 
23 -34.198 8.191 -53.694 -357 26.306 =23. 904 
23 -34.198 8.480 -63.983 2417 26.8017 27.835 
23 -34.198 8.786 -64.289 2476 25.711 -26.629 
23 -34.198 9.109 -54.612 536 25.388 329.3223 
23 ~34.198 9.449 “54.952 ~ 595 25.048 -23.967 
23 -34.198 9.806 -65.309 -655 24.691 22.367 
23 -34.198 10.181 65.684 714 24.316 -20.588 
23 -34.198 189.573 -66.876 774 23.924 -139.355 
23 -34.198 10.981 -66.484 - 833 23.516 -16.850 
23 -34.198 11.4@1 -66. 904 -893 23.096 -14.653 
23 -34.198 11.331 -67.333 -952 22.667 “12.242 
23 -34.198 12.264 67.767 1.012 22.233 “9.594 
23 -34.198 12.693 =66. 196 1.071 21.804 -6.686 
23 -34.198 13.108 -68.611 1.13! 21.389 -3.495 
23 -34.198 13.497 -69.800 1.191 21.000 -.0@0 











TABLE A-VI (CONT) 


RAY BETA THETACRAY> NORMAL S ALPHR2 RHO 2 
24 -37.285 5.352 -61.355 3. 902 23.645 -37.2385 
24 -37.285 6.955 -61.558 - 962 23.442 -36.603 
24 -37.285 6.270 "61.773 ~ 124 28.227 -35.379 
24 -37.285 6.5900 -62.003 - 186 2SHaoo¢ -35.030 
24 -37.285 6.745 “52.248 - 248 27.7S2 -34.227 
24 "37.285 7.007 -62.519 -319 27.490 -33.304 
24 -37.285 7.287 -62.790 ose 27.210 -32.301 
24 -37.285 7.990 -63.090 434 25.9190 =315.209 
24 -37.285 7.909 -63.412 2495 26.588 -30.017 
24 -37.285 8.254 =63S.r 57 ose 26.243 -28.719 
a4 -37.285 8.623 -04.126 -619 25.874 -27.2°4 
24 "37.285 9.019 -64.522 -681 25.478 -25.698 
24 -37.285 9.441 -64.944 743 25.956 323.937 
24 -37.285 9.892 =65 295 . 8905 24.6905 =2) 2990 
24 =37 .295 10.369 -65.872 -867 24.128 -19.820 
24 -37.285 10.872 -66.375 -JEo 23.625 -17.335 
24 -37.285 11.397 -66.900 oogl 23.109 -14.676 
24 -37.235 11.935 ~67.438 1.853 22.562 -11.623 
24 -37.235 12.477 -67.980 1.115 22.820 -8.139 
24 -37.285 13.005 -68.508 1.177 21.492 “4.329 
24 -37.285 12.477 -67.989 1.115 22.320 -¢. 189 
24 -37.285 12.531 -68.034 1.121 21.966 -7.3E3 
24 -37.285 12.584 -68.087 1.127 2iioi3 -7.452 
24 “37.285 12.638 -08.141 1.133 21.859 -7.87? 
24 -37.285 12.691 -68.194 1.140 21.806 -§.698 
24 "37.285 12.744 -68.247 1.146 elsfos -6.315 
24 -37.285 12.797 -68. 300 1.152 21.7088 =O. 3ar 
24 -37.285 12.349 “68.352 1.158 21.648 -5.534 
24 -37.285 12.902 -68.4905 1.164 21.595 -S.137 
24 -37.285 12.954 -68.457 1.178 21.543 “4.735 
24 -37.285 13.9005 -68.508 Late? 21.492 -4.329 
24 -37.285 13.057 -68.559 1.183 21.441 -3.918 
24 -37.285 13.107 -68.619 1.189 21.3399 -3.502 
24 "37.285 13.158 -68.661 1.195 21.339 -3.9081 
24 -37.285 13.208 “68.711 1.201 21.289 -2.556 
24 -37.285 13.257 -68.769 1.2908 21.240 “2.225 
24 -37.285 13.306 -68.899 1.214 21.191 “An 78 
24 -37.285 13.355 -68.858 1.220 21.142 -1.350 
24 -37.285 13.4983 -68.906 1.226 21.094 -.905 
24 “37.285 13.450 -68.953 1.232 21.047 -.455 
24 -37.285 13.483 -68.906 1.226 21.094 -.985 
24 =a seco 13.4988 -68.911 1.227 21.989 -.860 
24 -37.285 13.412 “98.915 1.227 21.9085 -.815 
24 -37.285 13.417 -68.929 1.228 21.989 -.779 
24 -37.285 13.422 -68.925 1.229 21.9075 -.7f26 
24 -37.285 13.427 -68. 930 1.229 21.9070 -.681 











TABLE A-VI (CONT) 


RAY BETA THETACRAY > NORMAL Ss ALPHA? RHO 2 
24 -37.285 13.431 -68.934 1.239 21.066 -.636 
24 =37.285 13.436 265.000 1.231 21.061 =. 300 
24 -37.285 13.441 -63. 944 1.231 21.9856 -.545 
24 -37.285 13.446 63.949 1.232 21.9851 -.598 
24 -3/7.285 13.459 “600 203 1.232 21.047 -. 455 
24 =3@.<35 13.455 -68.958 1.233 21.9842 -.418 
24 =37.285 13.468 =69. 963 1.234 21.837 -.364 
24 =37.23S5 13.464 -68.967 1.234 21.833 sole 
24 =3/ «232 13.469 “68.972 1.235 21.828 ea 
24 -37.285 13.474 -68.977 1.236 21.923 =,cee 
24 -37.285 13.478 -68.981 1.236 21.919 =s1ao 
24 -37.285 13.483 -68. 986 1.237 21.814 =eloe 
24 =3/.<29'9 13.488 =63 2.091 1.237 21.989 =.091 
24 “37.285 13.492 -63.995 1.238 21.9985 -. 046 
24 =37.235 13.492 “68.995 1.238 21.085 -.346 
24 ~37.285 13.493 -68.996 1.238 21.804 -.041 
24 -37.285 13.493 -68.996 1.238 21.904 -.83° 
24 =3(.ée50 13.494 -68.997 1.238 21.983 “1032 
24 -37.285 13.494 -68.997 1.238 21.983 -.927 
24 =3/ +230 13.495 -68.998 1.238 21.082 =, 323 
24 -37.285 13.495 -68.998 1.238 21.982 -.413 
24 =37.e00 13.496 ~68.999 1.238 21.901 -.014 
<4 -37.285 13.496 “68.999 1.238 21.901 -.809 
24 =3°.2o. 13.497 -69.908 1.239 21.888 -.995 
24 -37.285 13.497 -69.808 1.239 21.908 -.385 
24 =30ce2c 13.497 -69.008 1.239 21.908 -.304 
24 =270200 13.497 -69.889 1.239 21.089 -. 804 
24 -37.285 13.497 -69. 990 1.239 21.988 -.983 
24 -37.285 13.497 -69.008 1.239 21.908 -.903 
24 =-37.235 13.497 -69.889 1.239 21.000 -.382 
24 =3/.e00 13.497 -69.008 1.239 21.900 -.802 
24 =3/eeo0 13.497 -69.839 1.239 21.009 -.@081 
24 -37.285 13.497 -69.888 1.239 21.988 -.981 
24 =o acon 13.497 -69.008 1.239 21.908 -.988 
25 -48.591 4.848 ~68.351 6.989 29.649 -490.591 
25 ~48.591 3.935 -68.538 - 864 29.462 -39. 986 
25 -40.591 3.235 -69.738 o l29 29.262 =39.332 
25 -48.591 5.451 -68.954 2193 29.846 -38.621 
25 -48.591 3.685 -61.187 257 293.813 -37.846 
25 “438.591 3.937 -61.448 322 29.560 -37.089 
25 -49.591 6.221 “61.714 - 386 28.286 ~36.872 
25 -40.591 6.588 “62.911 450 27.989 -35.951 
a -40.591 6.332 -62.335 -31S 27.665 =33. 321 
< ~438.591 7.186 -62.689 ~579 a?eaul ~32.666 
25 -49.591 ?oore -63.9875 ° 643 26.925 -31. 266 
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TABLE A-VI (CONT) 


RAY BETA THETACRAY> NORMAL = ALPHAR2 RHO 2 
25 -40.591 7.995 -63.498 - 708 26.592 -29.695 
25 -40.591 3.453 -63.961 772 26.9039 -2¢. 928 
25 -40.591 8.964 -64.467 836 25.533 =235.913 
25 -49.591 9.516 “65.019 - 901 24.981 -23.620 
25 -40.591 10.115 -65.618 ~ 965 24.382 -29.988 
25 -49.591 10.760 -66.263 1.929 23.737 =lf.70¢ 
25 -40.591 11.442 66.945 1.094 23.9055 -14.430 
25 -40.591 12.147 -6°.650 1.158 22.350 -19.331 
25 -40.591 12.347 -68.350 1.222 21.6590 -5.554 
25 -40.591 13.497 -69.000 1.287 21.2900 -. 008 
25 -48.591 12.347 -68.350 1.222 21.650 -5.554 
25 -40.591 12.915 -68.418 1.229 21.582 -5.9035 
25 -40.591 12.933 -68.486 1.235 21.514 -4.508 
25 -40.591 13.9350 -68.553 1.242 21.447 -3.9¢3 
25 48.591 13.116 -68.619 1.248 21.331 -3.430 
25 -40.591 13.182 -68.685 1.254 21.315 -2.879 
25 -40.591 13.247 -68. 750 1.261 21.250 -2.320 
25 40.591 13.311 ~68.814 1.267 21.136 -1.753 
25 40.591 13.374 -68.377 1.274 21.123 =1, We 
25 -48.591 13.436 -68.939 1.280 21.361 -.593 
25 -40.591 13.497 -69.009 1.287 21.080 -.000 
25 -40.591 13.436 -68.939 1.230 21.061 =.o93 
25 “40.591 13.442 -63.945 1.231 21.955 -.534 
25 -40.591 13.448 “63.951 1.282 21.2849 -.475 
25 40.591 13.454 -68.957 1.282 21.043 -. 416 
25 -40.591 13.460 -68. 963 1.283 21.037 -.30¢ 
25 -40.591 13.467 -68.970 1.283 21.038 —- 29 
25 ~-40.591 13.473 -63.976 1.234 21.024 -.233 
25 -48.591 13.479 -68.982 1.285 21.018 =<i79 
25 -48.591 13.485 -68.988 1.285 21.9012 pee te 
25 -40.591 13.491 ~-68.994 1.286 21.006 -.959 
25 -40.591 13.491 -68.994 1.286 21.006 -.060 
25 ~40.591 13.492 -68.995 1.286 21.905 -.054 
25 ~-40.591 13.492 =69,. 999 1.286 21.005 -.848 
25 ~40.591 13.493 ~-68.996 1.286 21.004 ~.342 
25 -40.591 13.493 “68.996 1.286 21.004 -.036 
25 -48.591 13.494 -68.997 1.286 21.9003 -.939 
A -48.591 13.495 -63.998 1.286 21.002 -.024 
25 ~40.591 13.4935 -68.998 1.286 21.002 -.818 
25 -40.591 13.496 -68.999 1.287 21.001 -.G12 
25 -40.591 13.496 =69. 599 1.287 21.0901 -. 066 
25 -48.591 13.497 -69.009 1.287 21.008 -.800 
25 -40.591 13.496 -68.999 1.287 21.001 -. 006 
25 -40.591 13.496 -68.999 1.237 21.001 -.805 
25 ~40.591 13.497 -69.000 1.287 21.000 -.895 
25 -40.591 13.497 -69.000 1.287 21.000 -.004 





RAY 


BETA 


-44.118 
~44.118 
~-44.118 
~44.118 
~44.118 
~4#4.113 
~-44.118 
-4$4.118 
-44.118 
~-94.118 
~44.118 
~-44.118 
-44.118 
~-44.118 
-44.118 
~44.118 
-44.118 
-44.118 
~-44.1193 
~-44.118 
~44.118 
-44.118 
~44,118 
-44.118 
~44.1193 
~-44.118 
~-44.118 
~44,.118 
-44.118 
-44.118 
~44.118 


TABLE A-VI (CONT) 


THETACRAY> 


13.497 
13.497 
13.397 
13.497 
13.497 
13.497 
13.497 


3.749 
3.899 
4.9071 
4.259 
4.463 
4.638 
4.935 
5.298 
Se9i1 
3.8348 
6.226 
6.6590 
7.128 
7.669 
8.233 
8.978 
9.763 
19.638 
11.5990 
12.574 
11.599 
11.638 
11.786 
11.884 
11.983 
12.082 
12.131 
12.279 
12.378 
12.476 
12.574 
12.671 
12.767 
12.863 
12.958 
13.851 
13.144 
13.235 


NORMAL 


-69.9089 
-69.009 
-69.000 
-69.909 
-69.9989 
-69.900 
-69.999 


-59.243 
-59.492 
-§9.574 
-59. 762 
-59.966 
-60.191 
-69.438 
-60.711 
-61.9014 
-61.351 
=G1. fe? 
-62.153 
-62.631 
=63 172 
-63./°86 
-64.481 
-65.266 
-66.141 
-57.992 
-68.9077 
-67.992 
-67.191 
-67.299 
-67.387 
-67.486 
-67.5935 
-67.694 
=6r4(Se 
-67.381 
=Gr.97? 
“68.977 
-68.174 
-68.279 
-68.366 
-68. 461 
-88.554 
-68.647 
-68.738 


1.228 
1.235 


1.268 
1.275 
1.281 
1.288 
1.295 
1.391 
1.388 
1.315 


ALPHA2 


21.909 
21.999 
21.909 
21.999 
21.090 
21.999 
21.9989 


390.757 
38.598 
30.426 
39.238 
38.934 
29.899 
29.562 
29.289 
28.986 
28.649 
28.271 
27.847 
27.369 
26.828 
26.214 
25.519 
24.734 
23.859 
22.9088 
21.923 
22.988 
22.309 
22.711 
22.613 
22.514 
22.415 
22.316 
22.218 
22.119 
22.921 
21.923 
21.826 
21.738 
21.634 
21.529 
21.446 
21.353 
21.262 


RHO 2 











TABLE A-VI (CONT) 


RAY BETA THETACRAY) NORMAL S ALFHA2 RHO 2 
26 44.118 13.324 -68.827 1.321 21.173 -1.632 
26 -44.118 13.411 -58.914 1.328 21.886 -.324 
26 -44.118 13.324 -63.827 1.321 21.173 =1 163 
26 “44.118 13.333 -63.836 1.322 21.164 -1.552 
26 -44.118 13.342 -68.845 1.323 21.155 -1.472 
26 -44.118 13.3590 -68.853 1.323 21.147 -1.39< 
26 -44.118 13.359 -63.862 1.324 21.138 =i, 2301 
26 -44.118 13.368 =69.6001 1.325 Zicila2? -1.230 
26 -4$4.118 13.377 -68.880 1.325 21.120 =l, 149 
26 “44.118 13.385 -68.388 1.326 2i.it2 -1.863 
26 -44.118 13.394 -68.397 1.327 21.1083 ee i 
26 -44.118 13.4083 -68.906 1.327 21.094 -. 906 
26 -44.118 13.411 -68.914 1.328 21.086 -.824 
26 -44.118 13.420 -63.923 1.329 21.077 -~.743 
26 ~-4$4.118 13.429 -68.932 1.329 21.068 -.561 
26 -44.118 13.437 -68.940 1.330 21.069 =a 
26 -44.118 13.446 -68.949 1.331 21.9051 -.497 
26 “44.118 13.455 -68.957 1.331 21.9843 -.414 
26 -44.118 13.463 -63. 966 1.332 21.834 -.332 
26 -$4.118 13.472 -63.975 1.333 21.025 -.249 
26 -44.118 13.439 -68.983. 1.333 21.017 =. 166 
26 -44.118 13.489 -68.992 1.334 21.008 -.983 
26 44.1183 13.480 -68.983 1.333 21.017 -.166 
26 -44.118 13.4381 -68.984 1.333 21.016 =Jlwo 
26 -44.118 13.482 -68.985 1.333 21.9015 -.1590 
26 “44.118 13.483 -68.986 1.334 21.014 ~.141 
26 -44.118 13.483 68.986 1.334 21.014 -.133 
26 -44.118 13.484 -68.937 1.334 21.013 = ales) 
26 ~44.118 13.485 -68.988 1.334 21.012 =. 15 
26 ~44.118 13.486 -68.989 1.334 21.011 -. 198 
<5 -4$4.118 13.487 -68.999 1.334 21.810 -.1208 
26 -44,118 13.488 -68.991 1.334 21.009 -.991 
26 -44.118 13.489 “68.992 1.334 21.908 -.983 
26 -44.118 13.489 -68.992 1.334 21.008 -.975 
26 -44.118 13.490 -68.993 1.334 21.007 -.067 
26 -44.118 13.491 -68.994 1.334 21.006 -.858 
26 ~44.118 13.492 -68.995 1.334 21.805 -.950 
26 -44.118 13.493 -68.996 1.334 21.004 -.842 
26 -44.118 13.494 -68.997 1.334 21.803 -.033 
26 -44.118 13.495 -68.997 1.334 21.993 -.825 
26 -4$4.113 13.495 -68.998 1.335 21.082 -.817? 
26 “44.118 13.496 -68.999 1.335 21.001 -. 008 
26 -44.118 13.496 -68.999 1.335 21.001 -.008 
26 “44.118 13.496 -68.999 1.335 21.001 -.907 
26 ~-$4.118 13.496 -68.999 1.335 21.001 -.007 
26 -44.118 13.496 -68.999 1.335 21.001 -. 006 


15 











TABLE A-VI (CONT) 


RAY BETA THETACRAY) NORMAL S ALPHA2 RHO 2 
26 -44,.118 13.497 =6S. 977 1.335 21.861 -.005 
26 -44,.118 13.497 -69.8066 1.335 21.086 -. 064 
26 -44.113 13.497 -69.000 1.335 21.808 -.363 
26 -44.118 13.497 -69.688 1.335 21.008 -.062 
26 -44.118 13.497 -69.808 Dosoo 21.9000 -.862 
26 -44.118 13.497 -69. 808 1.335 21.0688 -.601 





TABLE. A-Vil 


COORDINATE (X,Y) VALUES, S, ALPHA2 AND RHO2 
FOR THE FINAL DESIGN OF SURFACE NUMBER 1 IN 








FIGURE 20 . 
Begin Next <surf Ysurf S Alpha2 RHO 2 
RAY RAY (next) (next) (next) (next) (next) 
1 1 so62 . 888 aa 21.888 -. 880 
1 2 465 - 848 «i 33 21.866 -.642 
1 2 ~ 568 ~379 «133 2l.oe -1.324 
1 4 ~671 otk «l33 21.228 -2.8598 
1 2 ~?04 139 2133 21.309 -2.824 
1 6 .377 ~199 132 21.488 -3.658 
1 7 988 2239 lea! 21.318 -4.534 
1 8 1.882 238 130 21.648 -3.488 
1 9 1.185 ~oal ~i29 21.778 -6.496 
1 18 1.237 - 361 ber 21.932 -7.589 
1 11 1.389 - 483 ~126 22.186 -3.765 
1 12 1.491 2444 sigs 22.383 -18.835 
1 13 1.3593 ~ 486 221 22.526 -11.407 
1 14 1.694 523 118 22.779 “12.892 
1 | 1.796 378 -114 23.868 -14.583 
1 16 1.896 -613 118 23.399 “16.251 
1 17 1.997 637 - 185 23.°78 -13.150 
1 13 2.097 781 . 188 24.213 =28,.215 
1 19 2.197 ~746 .894 24.712 -22.468 
1 28 2.296 oon . 886 25.286 -24.8399 
1 21 2.394 .338 .873 235.943 -27.545 
1 22 2.492 . 3885 -868 26.693 -30.488 
1 23 2.589 934 .837 27.343 -33.492 
1 24 2.685 984 845 23.588 =36. 7°99 
1 as 2.7838 1.635 038 29.563 -48.313 
1 26 2.373 1.889 -B14 30.725 -44.819 





TABLE A-VIII 


COORDINATE VALUES (X,Y) FOR THE RAY DIAGRAM IN FIGURE 22 





RAY X@ 


YO 


DON HUW & Whe 


VQooeoqocdoeoodoodcooooooooqeencooo0o gd 


~237 
390 
~ 493 
2596 
~ 699 
302 
906 
1.009 
t.it2 
1.215 
1.318 
1.421 
1.524 
1.628 
leat 
1.3834 
1.937 
2.848 
2.143 
2.247 
2.350 
2.453 
2.556 


2.762 
2.866 


~ 362 

~ 465 

- 568 

~671 

774 

2377 

. 988 
1.882 
1.1385 
1.287 
1.389 
1.491 
Loos 
1.694 
1.796 
1.896 
1.997 
2.897 
a. 197 
2.296 
2.394 
2.492 
2.589 
2.685 
2.788 
2.3873 


128 


4.099 
4.000 
4.000 
4.000 
4.000 
4.000 
4.000 
4.880 
4.000 
4.080 
4.090 
4,000 
4.000 
4.000 
4.009 
4.006 
4.000 
4.9000 
4.900 
4.900 


4.900 
4.000 
4.000 


oo © © © # e@ @# e@ e@ @ @ 
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CHART PROGRAM LISTING 


1B PRINT “4X HERR EHEERER ERE EKER EEE EEE EEE EEE LEER RERE RE HERE EHR EE EERE EERE EEE EEE" 


20 PRINT "“* +" 
3@ PRINT "+ CHART x 
40 PRINT "+ ae 


SQ PRINT “tee REESE REE EERE HEE FEES — EEE EK EE KEKE EREEEEER EERE REESE ER RERE RE REE HCE THRE RS" 
68 DISP "THIS IS CHART !!:" 
79 WRIT 2508 
88 Main:sOPTION BASE 38 
i 


98 ! 

108 COM Alpha, Talpha, Rho, Trho,Rho_initial, Trhoi,Rhol, Trhol,Rho2, Irho2 
118 COM F,23,24,Norm, Thetai,  Tdelta 

128 COM Dates$,Plots,Familys, Chart s,Mains,Mainis$, Flags, Y_hards 

roe t 

148 COM Stuff$,Redraws, Digitizes,Ray traces 

158 COM INTEGER I,J,79_lo0p,Nray,Nray chart,Nrayv family,Nray szturt 
168 TOM INTEGER Nray_ trace,Nray density,Add ray,tc,Ns,Nbeta,Flag 

178 | 

188 COM INTEGER Line_count,Line_ max,N_ increment, Hit total, Pselect,Hpib 
198 COM INTEGER Family,Surf_no 

268 COM REAL Theta critical, Tol,N1,N2,N3, Delta ray, YO, Ya, Yb, Aperture 
212 ! 

228 COM Y_bullet,Smax_family,Percent_image 

238 Com si Cemt>, Y1C S51), 666251), 426251), 26251), X2maxGeSi®, Y2max251) 
242 COM Y¥3¢251), 74¢251), Bet aC251)9,S2°6¢251), Xsurtmax(251), fsurfmaxt2si 5 
258 t 

268 COM Gact251), Smax(251)>,Alpha26251)9,Rho26251)9,Hit¢ 2091 

270 ! 

288 Maings="Y¥" ' SET CONDITION 

298 Dise *" 


388 PRINTER IS 15 
318 NORMAL 

328 FIXED 2 

338 PRINT PAGE 
348 OVERLAP 


358 Y¥g=z"QO" 

368 INPUT "SERIAL OR OVERLAP FOR I70 PROCESSING (DEFRULT=OVERLAP) ? S/70",VS 
3728 IF ¢Y¥8="S") OR (Y$2"5") THEN SERIAL 

389 CALL Dialogue 

398 DEG 

480 PRINT PAGE, " When entering values for Smax in CHART pleas? enter r2aso 
nable” 

418 PRINT "values. This is required because the horizontal axis for CHART is 
divided" 

429 PRINT “into 18 intervals. The program takes your entry for Smax" 

430 PRINT “and divides by 10 to determine the tick spacing. The vertical " 
442 PRINT “tick marks are under program control, enter anything you wish." 
432 PRINT LINC2), "PRESS CONT” 

462 PRUSE 

478 PRINT PAGE 

480 Gymnastics: ¥Y_hards$2"N* 

498 INPUT "DO TOU WANT R HARD COPY OF THE COMPUTED DATR? V/“N", 7’ ha 
rds 

38a GOSUB Yhard 

319 CALL Header 

328 GOSUB Printer 

339 CALL Header_end 

342 PRINT LINC2) 

539 Main$="N* ! RESET CONDITION 

$60 Header: DISP “ WORKING ..." 

S78 Initialize run: Flag=9 ' RESET CONDITION 

38u YO_min=Yat#(Talpha-Trhoisv’Talpha 

$98 YO _max=Y¥b*¢Talpha-Trhoi>”“Talpha 

688 Xnray2Nr ay ' AVYOIDS MIXED MODE ARITHMETIC 

618 Dely=CY¥@_max-YO_min) “nr ay 

629 YO_minz¥@_ min-Dely 

630... IF Ya=Q THEN YO_min=Y9 _mineDely 

649 Nr ay2Nray+Add ray 


To 





659 Ns2=@ ! COUNTER FOR THE ¢(%,Y> ARRAY 

668 Ne 2@ 

678 X1¢Ns>=8 

63@ YICNs>=8 

698 Bet at‘O>=9 

766 Y@_ loop: FOR Y@_loop=i TO Nray Tee Ute rieeelMmrecmcee) OF THE INCIDENT 
718 ' AND THE FIRST SURFACE 

728 XyB_l1oop=Y0_ loop ' AVOIDS MIXED MODE ARITHMETIC 
73@ Flag=@ ! RESET FLAG 

748 X2=@ 

758 Rho=Rho_initial 

768 Trho=TANCRho>d 

778 Y=¥8_mintDelysr%yB_ loop 

780 Ns2*Nsel 

790 YICNs>2Y 

808 One: CALL Xtpos¢X, Yd 

81¢@ ALCNS) =X 

828 Next _y@ loop: NEXT Y@_loop 


33@ INPUT "RARE YOU USING THE CRT <C> OR THE 3872A PLOTTER “P* °° Cv 
P"*, Plots 

348 IF (Plot $="C"> OR CPlot$="c") THEN Chart 

85a tHeUl Poeehoe ENTER THE SELECT WODE OF THE GRAPHICS DEVICE UE 
FAULT = 7 >.",Pselect 

869 INPUT “PLEASE ENTER THE HPIB ADDRESS OF THE GRAPHICS DEVICE “«<D 
EFAULT = 5 >.",Hpib 

876 Chart: CALL Chart 

88@ GOSUB Yhard_end 

89@ PRINT LINC2), "PRESS CONT" 

98@ PAUSE 

916 PRINT 

928 PRINT PAGE,” If the scale you have chosen did not allaw the compute 
r “ 

936 PRINT "to number all of the curves you may do so manually by " 

948 PRINT “answering yes (YY) to the next prompt." 

95@ PRINT LINC1)," If your answere is yes, the graphics display of the 
u 

96@ PRINT "plot will come on and a cursor will be in the lower left" 

978 PRINT “corner. Position the cursor by using the DISPLAY" 

930 PRINT “controls. The letter or number will Ge drawn with its " 

998 PRINT “left side over the center of the cursor. ‘fou MUST BE 

CRREFUL " 

1eee@ PRINT “because mistakes are difficult, if not impossible to eras?” 
161@ PRINT “Cconsult the graphics rom manual (page 91> to erase & l2trer?. 
1828 PRINT LINC29," When vou have completed all of your lettering," 

1836 PRINT “PRESS CONT. * 

184@ PRINT LINC2),"PRESS CONT" 

1658 PAUSE 

106@ PRINT PAGE 

1878 Y¥S="N" 

168@ INPUT “DO YOU WANT TO NUMBER ANY OF THE CURYES ? Y/N",Y$ 

1696 IF ¢Y¥$=#"V¥") OR CYS=e"y") THEN CSIZE 2.5 

11ee@ IF ¢Y¥$2"Y*) OR (YS$a"y")> THEN LETTER 

iii@ IF ¢Y¥$2"Y") OR (YS=2"y") THEN CSIZE 1574.54 

ii2¢@ IF ¢<Y¥S=""") OR CYS="y")> THEN EXIT GRAPHICS 

113¢ Dump_crt s="N" 

1140 INPUT "DO YOU WANT A HARD COPY OF THE PLOT 7 Y/N", Dump_erts 

115@ IF <Dump_erts="¥") OR CDump_ertess"y"> THEN GOSUB Printer 

116@ Flag2¥ ! RESET CONDITION 

117@e Y$S="N" 

113@ INPUT "BDO YOU WANT ANOTHER PLOT DRAWN TO A DIFFERENT SCALE ? Y/N", 7S 
1198 IF ¢CY$="¥") OR CYS="y") THEN Chart 

1280 Reruns: PRINTER IS 15 

1219 PRINT PAGE 

122e Y$=s"N" 

123@ - INPUT "RARE YOU GOING TO MAKE ANY MOPE RUNS? Y/N",YS 

1248 IF ¢YS3"N") OR CYS$="n") THEN Family 


30 





1250 Rerun2: Changes="N" 


1260 INPUT “ARE YOU GOING TO CHANGE ANY PARAMETERS in2,n3,Alpha,Nray,. OR 
RHO-INITIAL)>? Y/N", Changes 

1278 IF (Changes="N"> OR (Changes$2"n")> THEN Gymnastics 

1280 GOSUB Printer : 

12990 INPUT "WHAT IS THE NEW VALUE OF RHO-INITIAL ?",Rho_initial 

1308 Rho_initial=-1*ABS(Rho_initial> 

1319 Trhoi=TANCRho_initial> 

1329 INPUT “WHAT IS THE NEW VALUE OF ALPHA?",Al pha 

13390 Talpha=TANCAl] phad 

1340 Ne: INPUT “WHAT IS THE NEW VALUE OF n2?",N2 

13590 INPUT "WHAT IS THE HEN VALUE OF n3?",N3 

1366 IF N3>N2 THEN BEEP 

1378 IF N3>N2 THEN DISP "n3 MUST BE < n2, PLEASE RE-ENTER THE VALUES 
1380 IF N3>N2 THEN WAIT 2500 

13998 IF N3>N2 THEN N2 

1460 TF N3<N2 THEN Theta critical =ASNCN3/N2) 

1410 Ya: INPUT “WHAT IS THE NEW VALUE OF ‘’a CINCHES)D *",Ya 

1420 INPUT "WHAT IS THE NEW VALUE OF Yb CINCHES>) ?",Yb 

1430 IF Ya>2Yb THEN BEEP 

1449 IF Ya>=Yb THEN DISP “Ya MUST BE < Yb; PLEASE RE-ENTER THE YALUE 
s* 

145¢ IF Ya>sYb THEN WAIT 25866 

1469 IF Ya>2Yb THEN Ya 

1478 Aperture=Yb-Ya 


14380 Y_ bullet: INPUT "WHAT IS THE NEW VALUE OF ¥Y_ bullet ¢ MUST BE 7 1b > va DU 
Tlhet 


1498 IF Y_bullet<Yb THEN BEEP 

13509 IF Y_bullet<Yb THEN DISP "“Y_bullet MUST BE > Yb : PLEASE RE-ENT 
ER Y_bullet." 

1351@ IF Y_bullet<Yb THEN WAIT 2580 

1320 IF Y¥_bullet<Yb THEN Y_bullet 

1336 INPUT "WHAT IS THE NEW VALUE OF THE No. OF RAYS ?",Nray 

135490 INPUT “WHAT IS THE NEW YALUE OF FOCUS CINCHES)D 7",F 

13556 GOTO Gymnastics 

15360 Family: Family$="N" 

13570 PRINTER IS 16 

1589 INPUT “DO YOU WANT TO DRAW A FAMILY OF SURFACES FROM THE DESIGN CHA 
RT ? Y/N", Family$ 

1390 IF (FamilyS="N">) OR CF amilyS=e"*n") THEN Finished 


1608 Famili: PRINT PAGE,” Xmax is the maximum length along the GLM axis which y 
ou" 


1618 PRINT "want to be displayed.” 

1620 PRINT “ A rule of theumb is to add one inch to the focal length." 
1639 PRINT “For example: if the Focal length is 4 inches, key in 5S ang” 
1648 PRINT “PRESS CONT." 

1650 PRINT LINC2),"PRESS CONT" 

1668 PAUSE 

1670 Y_hard$="N" 

1680 INPUT "DO YOU WANT A HARD COPY OF THE COMPUTED DATA ? Y/N", Y_hard$ 
16998 IF ¢Y¥_hards="Y"> OR CY_hard$=2"y") THEN GOSUB Yhard 

17868 CALL Family 

1716 GOSUB Yhard_end 

1728 Dump_crt $3"N" 

1739 INPUT "DO YOU WANT A HARD COPY OF THE PLOT ? Y/N", Dump_certs 

1748 IF (Dump_certs=s"¥") OR CDump_crte~s="y") THEN GOSUB Printer 

1730 YS="N" 

1760 INPUT “DO YOU WANT TO DRAW THE PLOT USING A DIFFERENT SCALE ? Y/N", 
Ys 

1770 IF (Y¥8="Y") OR CY8S"y") THEN Famili 

1789 Mainis="yY" ! SET CONDITION 

1796 Y_hard$="N* 

189@ INPUT "DO YOU WANT A HARD COPY OF QA,Smax,Alpha2 and Rho2 ? Y/N", Y_ 
hard$ 

1810 . GOSUB Yhard 

1820 CALL Header 


ea. 





1830 
1340 
1850 
1860 
18370 
1830 
1390 
1988 
191 
1920 
1938 
1940 Stuff: 
1950 
1968 
197 
1986 
19990 
2800 
2810 
2820 
2830 
2040 
2850 
2060 
2070 
2080 
2890 
21080 
2118 
2120 
2130 
2140 
2150 


FOR I=! TO Nray ; 
IF Line_count >Line_max THEN CALL Header 
PRINT USING 13705;1,QaCI),Smax¢I),Alpha2¢1>,Rho2¢1> 
Line _count=Line_count+tl 
IMAGE 14X%,0DD0,4¢5%, DDD. ODD» 
NEXT I 
CALL Header_end 
GOSUB Yhard_end 
PRINT LINC10),"PRESS CONT" 


Mainis="N" ! RESET CONDITION 

PRUSE 
PRINTER IS 16 

PRINT PAGE, “ Please study the display and choose the surface” 
PRINT “which you want to use to generate a final surface." 

PRINT ” When you have decided which surface to use, PRESS CONT" 
PRINT LINC1)>," Key in the number of the surface you want to use" 
PRINT “in response to the prompt." 

PRINT LINC1), " The computer will then determine the aperture of " 
PRINT “the surface and trace 25@ rays through the aperture. " 
PRINT LIN(C1)," When you are ready to proceed PRESS CONT." 
PRUSE 

GRAPHICS ' IF A NOTE TO OPERATOR IS DESIRED, THEN ENTER SETGU, 
WAIT 2508 PCORG 2, MOVE 2,e ,CSIZE 2.5 ,LAPEL "PRESS CONT WHEN 
BEEP | READY” ,SETGU CSIZE 1574.54 RAFTER THE SECOND BEEP 
WAIT 250 

BEEP 

PAUSE 


EXIT GRAPHICS 
INPUT "WHICH SURFACE (1,2,3,etc.) 2?",Family 
FamilysINTCFamily)d 

IF Family<=0 THEN Family=1 

IF Family>Nray_ family THEN Family=Nray_ family 
DISP “WORKING ..." 


2160 Re_ stuffs CALL Stuff 


2170 
2138@ 
2190 
2290 
2210 
2228 
2238 
draw$ 
2248 


GOSUB Yhard_end 
Dump_cert $="N" 
INPUT "DO “OU WANT A HARD COPY OF THE PLOT ? Y/N", Dump_carts 
IF (Dump_erts2"¥") OR CDump_crts$=e"y")>) THEN GOSUB Printer 
Flag=@ ! RESET CONDITION 
Redraw$="N"“ 
INPUT "DO YOU WANT RNOTHER PLOT DRAWN TO A DIFFERENT SCALE ? ‘/N",Re 


IF (RedrawS="Y¥") OR (Redraws="y") THEN Re_stutff 


2250 Stuff_trace: YS="N" 


2260 
Y/N", Y$ 
2270 
2289 
2290 
2300 
231@ 
2320 
233@ 
2340 
2350 
2360 
2370 
2380 
239@ 
2400 
2412 
2420 
2430 
2449 
2450 
rd$ : 
2460 


INPUT "DO YOU WANT TO TRACE RAYS THROUGH THE COMPUTED SIJRFACE ? 


IF (Y¥S$="N"“) OR CY$S"n") THEN Reruns 
DISP "WORKIN’ ON THE RAY TRACE DATA..." 
FOR Y@_ltoop=! TO Nray_stuff 

Surf_no=3 

Rho2=Rho2(YO_loop> 

XABX2)CYO_ loop) 

YeV¥2CY@_loop) 

CALL Binary _search(x,Y) 
¥3°YO_loopd=¥7 

X3Z3 

Surf_noz4 

CALL Binary search(xX, Y) 

Y¥4°Y¥@_loop)=yY 
NEXT Y@_loop 
Nray_trace=Nray_ stuff 
Ray_traces="/" 

BEEP 
Y¥$="N* 
INPUT "DO YOU WANT A HARD COPY OF THE PAY TRACE DATA ? Y/N",%_ha 


GOSUB Yhard 
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2470 CALL Header 

2480 Stuff_tracel: FOR [=1 TO Nray_ stuff 

2490 IF Line_count >Line_max THEN CALL Header 

2500 PRINT USING 251031,0,V1¢1),%1¢1),¥1¢1), X2€1>, Y2¢1),X%¢eC1), 0,28 
Y¥4¢1) 

2519 IMAGE DDD, 2%,D,3¢2%, DD. DDD, 3X, DD. DDD>.2X,D.D,3X, DD. DD, 3X, 4D.2D 
2520 Line_count=Line_count+l 

2538 NEXT I 

2548 CALL Header_e2nd 

2550 GOSUB Yhard_end 

2560 PRINT LINC2), "PRESS CONT" 

2578 BEEP 

2586 PAUSE 

2590 Re_graph: CALL Graph 

2600 Redraws="N" 

2610 INPUT “DO YOU WANT ANOTHER PLOT DRAWN TO R DIFFERENT SCRLE ? Y/AH",Re 
dr aw $ 

2620 IF (RedrawS="Y") OR (Redraws="y") THEN Re_graph 

2638 Density: PRINTER IS 16 

2640 PRINT PAGE," The point of maximum ray density is determined by yo 
u visually." 

2658 PRINT “by placing the crosshairs (they will appear automatically) 
2660 PRINT “over the position of maximum ray density." 

2676 PRINT " This is accomplished by using the DISPLAY controls Cup 
»down,<-,-7>). " 

2630 PRINT “When you the get cursor in the area of interest, use the 5 
HIFT button" 

2696 PRINT “with the DISPLAY controls (both the shift button and disp 
lay control" 

2708 PRINT “should be depressed simultaneously) for fine positioing." 
2718 PRINT LINC2)," The position of the vertical hair is critical, 
2720 PRINT “because its location i3 used for the position of the " 
2738 PRINT “image plane (23> on the GLM axis." 

2740 PRINT LINC2), "CAUTION : Do not let the image plane intercept any 
rays" 

2790 PRINT “in the interior of the lens. If this is done, those rays 
2768 PRINT “will be included in the histogram." 

2770 PRINT LINC2), "PRESS CONT" 

2788 PAUSE 

2798 PRINT PAGE," The histogram is an illustration of the density" 
2800 PRINT “of the rays that intercept the image plane versus radial " 
2810 PRINT "distance from the GLM axis." 

2320 PRINT LINC2)," When the position has been located, PRESS CONT." 
2830 PRINT LINC2), "PRESS CONT" 

2843 PAUSE 

2358 Digitizes="y" 

2868 CALL Graph 

2378 IF Plot$="P" THEN Dense ! P FOR HP-9872 PLOTTER 

2882 Dump_¢rt$2"N" 

28992 INPUT “DO YOU WANT A HARD COPY OF THE PLOT ? Y/N", Dump_erts 

2908 IF (CDump_ert$="Y") OR CDump_ertss"y") THEN GOSUB Printer 

2910 PRINT PAGE 

2920 DISP "“WORKIN’ ON THE HISTOGRAM..." 

2930 Dense: CALL Density ! PRODUSE A HISTOGRAM OF THE RAY DENSITY 
2940 IF Plots$="P" THEN Denser 

2958 Digitizes$="N" ' RESET CONDITION 

29693 INPUT "DO YOU WANT A HARD COPY OF HISTOGRAM ? Y/N", Dump_ert$ 

29798 IF CDump_ert$="7¥") OR CDump_cert$="y") THEN GOSUB Printer 

2939 Denser: YS=2"N" 

2998 INPUT "DO YOU WANT TO REDRAW THE HISTOGRAM FOR A DIFFERENT IMAGE P 
LANE 7? Y/“N",Y$ 

30aa IF (Y$="Y") OR CYS="y") THEN Flag=O 

3019 IF Cys=#"y"> OR (Y$="y") THEN Re_graph 

3020 Ray_traces2"N" 

3830 Rerun3: YS="N" 

3848 INPUT "DO YOU WANT TO TRY 


RNOTHER SURFACE CTHIS MEANS STARTING OVER 


Leo 





mee 17N", YS 


3858 IF (<¥$="Y") OR CY$="“y") THEN Main 

3968 GOTO Finished 

3070 Printer: PRINTER IS 15 

38890 IF (Changes="¥") OR (Changes="y.") THEN Y_hard$="H" 

3098 IF CDump_ertss"/") OR CDump_ertse"y") THEN Y_hardss"y" 

3180 IF (Y_hards="v¥")> OR ¢Y¥_hards="y") THEN PRINTER I3 9 

3110 IF ¢(Y_hards=""") OR (Y_hards="y") THEN PRINT CHRS<27)&"%1G8T" 
3120 IF (Dump_crts="¥") OR CDump_ert$="y") THEN Crt 

31390 FIXED @ 

3140 FIXED 2 

3150 IF DateS="" THEN 31790 

3168 PRINT "DATE : "; Dates 

3179 PRINT LINC1), "Alpha = "jSAlpha; "degrees"; TABC43); "Rhor-initial = “35R 
ho_initial 

31890 PRINT "“TANCA]l pha) = “5 Talpha; TABC43)5"TANCRHO-INITIALD = “3 Trhoi 
3198 PRINT LINC1),"RHO1 = "SRholj;“degrezs"s5TABCS3S) 5 "Thetaccriticals = " 
; Theta critical; "degrees" 

32900 PRINT LINC1>,"GLM Radius = "ZY_bullet; "inches" 

3218 PRINT “Aperture = “j;Aperture; TABC24)35;"Ya = “SYas"ineh"; TABC43);3 "Yb 
= "s¥Yb; "inches" 

3220 FIXED 5 

32390 PRINT LINC1), “nil = "SN13 TABC24)3;"n2 = "§$N23 TABC 4895 "n3"5N3 

3248 FIXED @ 

3258 PRINT LINC1), "Number of Rays = "“5Nray 

3260 FIXED 2 

3279 PRINT LIN(C1)9,"“Design Focal Point = "SF5" inches" 

3289 PRINT 

3290 Crt: IF CDump_erts="¥") OR CDump_ert$="y") THEN DUMP GRAPHICS 

33900 IF ¢Y_hards=""") OR CY¥_hard$="y") THEN PRINT CHRS(270%"°%136T" 
3310 IF CDump_erts="¥") OR (Dump_ertese"y") THEN PRINTER IS 16 

3328 Change$2"N" ! RESET CONDITION 

3338 Dump_crt$2"N" 

3340 Y_hard$="N" 

3350 RETURN 

3368 Yhard: IF (Y_hard$=""") OR (Y¥_hard$="y") THEN Flags="1" : 

3378 IF ¢€¥_hard$="N") OR (Y_hard#="n") THEN Fl ags="6" 

3388 IF Flag$="1" THEN PRINTER IS @ 

33998 IF Flag$="1" THEN PRINT CHR$¢(27)&"&100T" 

3489 RETURN 

3410 Yhard_end: IF Flag$="1" THEN PRINT CHR$¢(27)4%"&136T" 

3428 IF Flag$="1" THEN PRINTER IS 16 

34390 RETURN 

3448 Finished: DISP “FINISHED” 

3452 END 


3468 SUB Snell 

3478 OPTION BASE @ 

3488 ! 

34990 COM Alpha, Talpha, Rho, Trho,Rho_initial, Trhoi,Rhol, Trhol, Rho2, Trho2 
3388 COM F,23,24,Norm, Thetai, Tdelta 

3519 COM Date$,Plots,Family$, Charts, Main$,Mainl$,Flags, Y_hards$ 

3528 ! 

33390 COM Stuf f$,Redraw$, Digitize$,Ray_traces$ 

3349 COM INTEGER I,J,Y0_loop,Nray,Nray_chart,Nray family,Nray_ stuff 
3558 COM INTEGER Nray trace,Nray_density,Add ray,Nc,Hs,Nbeta, Flag 

3569 ' 

3570 COM INTEGER Line_count,Line_max,N_ increment,Hit total,Pselect,Hpib 
3538 COM INTEGER Family, Surf_no 

3390 COM REAL Theta critical,Tol,N!,N2,N3, Delta ray, Y@, Ya, *b,Aperture 
3688 i 

3610 DEG 


3620 One: Theta1290-CAlphatABS (Rho) ) ' RHO MUST BE DECLARED ELESWHERE 
3638 Alpha2zAlpha 

3648 Norm2=Alpha2-90 

3659 Sin_iprimesNivn2*SIN¢ Thetai) 

3660 . ThetarsASN(Sin_tprime) 

3679 RholsAl pha2+Thet ar-99 ' USE ALPHA2 INSTEAD OF NORM BECAUSE THE 
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3688 
3698 


| SIGN OF THE .ANGLE IS DESIRED 


Trnot=TRN¢CRhol>D 
37800 SUBEND 


3718 SUB Plot 


3728 OPTION BASE 8 

37398 { 

3740 COM Alpha, Talpha, Rho, Trho,Rho_initial, Trhoi,Rhol, Trhol,Rhoe, Trho2 
375@ COM F,23,24,Norm, Thetai, Tdelta 

3768 COM Date$, Plots, Familys, Charts,Main$,Mainls,Flags,Y_hards 

3778 { 

3789 COM Stuf f$,Redraus, Digitizes,Ray traces 

3798 COM INTEGER I[,J,/@0_loop,Nray,Nray chart,Nray famirly,Nray_ stuff 
38980 COM INTEGER Nray_trace,Nray density,Add_ray,Nc,Ns,Nbeta, Flag 
3818 | 

3828 COM INTEGER Line_count,Line_max,N_increment,Hit_total,Pselect,Hpibd 
3839 COM INTEGER Family, Surf_no 

3840 COM REAL Theta critical, Tol,N1,N2,N3, Delta ray, YO, Ya, Yb,Aperture? 
3850 t 

3868 COM Y_bullet,Smax_family,Percent_image 

3878 COM K16#9, 71649, XC #), K20649, 720%), X2maxC*#), Vomax  #) 

3889 COM Y3¢#),Y4¢4), Betac#), S264), Xsurfmax(*#), Ysurfmax (#>) 

3898 ! 

39980 COM Qac#), Smax(#),Alphaec*#), Rhoel*#), Hit ¢*#> 

3918 t 

3928 ! THE ORIGINAL OF THIS ROUTINE WAS OBTAINED FROM THE HP UTILITIES LIBRARY 
3938 ! 9845B UTILITY LIBRARY 

3948 ' PROGRAM CARTRIDGE 2 

3950 ! 89845-18205 

3968 ! PROGRAM REGPLT 

3978 ! SUB LAXES WAS ALSO BORROWED FROM THE LIBRARY 

3989 i 

3998 ! Deo oenuemrne 15 USED TO SET UP THE LIMIT, LOCATE, SCALE AND CLIP STATE 
MENT 

4800 ! STATEMENTS FOR THE FOLLOWING ROUTINES: 

4019 } 1> CHART 

4820 ! 2) FAMILY 

4830 i 39 STUFF 

4840 ! 4) DENSITY 

4859 { S> RAY_TRACE 

4060 ! 

4879 Flaga=Flagce=9 

4080 Set_up: IF (Plot$="P") OR (Plot$="p") THEN P9872a 

4090 Crt: PLOTTER [S 13, "GRAPHICS" 

4100 GOTO 4120 | 

4110 P9872a: PLOTTER [IS Pselect,Hpib, "9872R" 

4120 GCLEAR 

4130 LINE TYPE 1 

4149 LDIR @ 

4150 LORG § 

4160 LIMIT 0,184,90,140 ' ALL UNITS IN MILLIMETERS 

4179 DATA ~-2,-1,1,2 

4180 READ Um, Dm,Md,Mu 

4190 DATR .39794,.69897,.87506 

4209 READ Log2,LogS,Log? 

4219 { 

4220 IF CDigitizes="Y") OR (CDigitizes="y") THEN Digit_scale 

4230 IF (Ray traces="Y") OR (Ray _tracef="y") THEN Ray_ trace 

4240 IF (Chart$2="Y¥") OR (Chart s2z"“y")> THEN Chart 

4250 IF (Familys="Y") OR (Familys="y"> THEN Family 

42690 IF (Stuf f$=e"V¥") OR CSturf$a"y") THEN Stuff 

4279 \ 

4280 Chart: Xmin=0 

4299 INPUT “WHAT IS THE MINIMUM VALUE OF S CINCHES) (DEFAULT = 9 INCH) ?" 
»amin 

4300 Xmax=zZ 

4319 INPUT "WHAT IS THE MAXIMUM VALUE OF S CINCHES) CDEFRULT = 2.93 INUHD 
2" Xmax 


oe 





4320 IF Flagc=1 THEN 4380 


4330 Y¥min=Alpha-1 

4340 Y¥max290 

4350 INPUT "WHAT IS THE MINIMUM VALUE OF ALPHRe (DEGREES) «DEFAULT = ALPH 
A-1 DEG) ?",Ymin 

4360 INPUT “WHAT IS THE MAXIMUM VALUE OF ALPHA2 (CDEGREES> <BDEFAULT = 328 D 
EG> ?“,Ymax 

4370 IF Flaga=1 THEN 4438 

4380 IF Xmin>Xmax THEN SEEP 

4390 IF Xmin>Xmax THEN DISP “Smin IS > Smax 3: PLEASE RE-ENTER VALUES IN 
CORRECT ORDER" 

4400 IF Xmin>Xmax THEN WRIT 2500 

4410 IF Xmin>Xmax THEN Flagc=1 

4420 IF Xmin>Xmax THEN Chart 

4438 IF Ymin>Ymax THEN BEEP 

4440 IF Ymin>Ymax THEN DISP “ALPHA2min IS > ALPHAZmax : PLEASE RE-ENTER 
VALUES IN CORRECT ORDER” 

4450 IF Ymin>Ymax THEN WAIT 2500 

4460 IF Ymin>Ymax THEN Fl aga=1l 

4470 IF Ymin>Ymax THEN 4330 

4480 Xorg=Xmin 

4490 YorgzYmin 

43500 Flaga2Fl agce=0 

43510 GOTO Chart scale 

4520 Family: Xmin=Ymin=Xorg=Yorg=0 

43530 Ymax=Y bullet 

4540 Xmax 2S 

4350 INPUT "WHAT IS THE MAXIMUM YALUE OF X CINCHES> CDEFAULT = 5 INCHES) 
2", Xmax 

4360 IF Xmax<=Xmin THEN BEEP 

4570 IF Xmax<=Xmin THEN DISP “Kmax MUST BE > Xmin. PLEASE RE-ENTER T 
HE VALUES IN THE CORRECT ORDER." 

4530 IF Xmax<=Xmin THEN WAIT 2500 

4590 IF Xmax<2Xmin THEN Family 

4600 Family scale: LOCATE 15,130,35, 160 

4610 GOSUB Same 

4620 SCALE Xmin~.S#ABSCYtics, Kmax+. S#ABSCYticd, Ymin~.S*#ABSCYticd,yY 

_bullet+.S#ABSCYtic)d 

4630 CLIP Xmin~.S*ABSCYticd, Xmax+.S#ABS( 7ticd, Ymin~.S#ABS(CYticd,Y 

_bullet+.S*ABSCYtic)d 

4640 GOSUB Same_axes 

4650 SUBEXIT 

4660 Stuff: Xmin=Ymin=XorgzYorg2d 

4670 Xmaxz5 

4680 Ymax#Y_bullet 

4690 INPUT "WHAT IS THE MAXIMUM VALUE OF X CINCHES) (DEFAULT = 5S INCHES) 
2", Xmax 

4700 IF Xmax<2Xmin THEN BEEP 

4710 IF Xmax<=Xmin THEN DISP “Xmax MUST BE > Xmin. PLEASE RE-ENTER TH 

E VALUES IN THE CORRECT ORDER." 

4720 IF Xmax<2Xmin THEN WAIT 2500 

4730 IF Xmax<=Xmin THEN Stuff 

4740 Stuff_scale: LOCATE 15,130,35, 100 

4750 ,-°. * GOSUB Same 

4768 © “_ SCALE Xmin-.S#ABSCYtic)d, Xmax+. S#ABSCYticd, Ymin~.S#ABSSYticd,v_ 
bullet+.S#ABS<Yticd 

4770 CLIP Xmin~. S#ABSCYticd, Xmax+.S*ABSCYticd, Ymin~.S#ABSCYticd, ¥_ 
bullet+.S#ABSCYtic? 

47380 GOSUB Same_axes 

4790 SUBEXTT 

4800 Ray trace: XminzXorg=Yorg20 

4810 Xmaxz§ 

4820 INPUT “WHAT IS THE MAXIMUM VYALUE OF X CINCHES) CDEFAULT = § INCH 
ES> ?",Xmax 

4830 IF Xmax<=Xmin THEN BEEP 

4840 ~° IF Xmax<=Xmin THEN DISP “Xmax MUST BE > Xmin. PLEASE RE-ENTE 


R THE VALUES IN THE CORRECT ORDER." 
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4850 IF Xmax<=Xmin THEN WAIT 25890 


4860 IF Xmax<=Xmin THEN Ray_trace 

4878 Ymax2Y_ bullet 

4880 Y¥min=-Y¥max 

4890 Ray _ trace scale: LOCATE 15,139,25,109 

4988 GOSUB Same 

4918 SCALE Xmin-.S#ABSCYticd, Xmax+. S*eABSCY¥ticd,-¥_bullet-.25*AB 
SC¥ticd, Y_bullet+.25*ABS(Ytic)d 

4928 CLIP Kmin~.S*RBSCYticd,dAmaxt+. S*#ABSCYticd,-/f_bullet-.25*#AB 
S¢¥tic>,Y_Bbullet+.25*#ABSCYtic»s 

4938 GOSUB Same_axes 

4948 CLIP Xmin, 100, Ymin, Ymax 

493590 SUBEXIT 

4968 Chart_scale: LOCATE 18,133,23, 108 ! ALL UNITS IN GDU’S 

4978 GOSUB Same ! DRAW THE DESIGH CHART 

4989 Xticz(Kmax-XminI718 

4998 SCALE Xmin, Xmax*. 25*ABSCXticd, Ymin, Ymax+. 2S*ABSCYticd 

500e CLIP Xmin, Xmax, Y¥min, *max 

5818 GOSUB Same_axes 

S828 FRAME 

$838 SUBEXIT 

5648 Digit scale: LOCATE 9,130, 38,188 ! ALL UNITS IN GDU’S 

SO5e Amax=Y¥_ bullet | DRAW THE HISTOGRAM 

$060 Xminz—Xmax 

5878 Xorg2zYorg=8 

$88e Y¥max2t 

$090 Ymin=d 

$188 GOSUB Same 

S119 SCALE -Y_bullet~-.15*#ABS<Yticd,¥Y bullet+.15*ABSCYticd,—-. 1S*ABS¢ 
Y¥ticd, Le. IS#ABSCYticd 

3128 CLIP -Y¥_bullet-.1S5*#ABSCYtic>,Y_ bullet+.1S5S#ABSCYticd,-.1S5*ABS< 
Yticdr, 1+. LS#ABS<CYticd 

5130 GOSUB Same_axes 

3140 SUBEXIT 

3158 Same axes: CALL Laxes(xtic, Ytic, Xorg, Yorg,1,1,2,Xmin-Xfudge, Xmax, Ymin-Yfu 
dge, Ymax) 

5160 CLIP Xmin, Xmax, Y¥min, Ymax 

3172 RETURN 

5$18@ Same: Lx2LGT¢Xmax-Xmin? 

3190 LysaLGT¢Ymax-Ymin? 

5288 Xfudge=.20#¢Xmax-Amin) 

5219 ¥fudge=. 20% ¢ Y¥max-Ymin) 

S220 Tic_ marks: Testxtic=FRACTCLx>+¢(Lx<O) 

3238 Xtic=l1OrcINTcLxd-iLoeC het. S#eCcTestxticrLog2) AND (Testxtic<LogS)) 
+4%¢CTestxtic>tLogS) AND (Testxtic<tLog7))+5.5*¢(TestxticrbLog7>)> 

$240 Testytic=FRACTCLy > +¢(Ly<@> 

$258 YRicZLO*CINTCLyd—LdeCiel. Sec Testyticrblog2> AND ‘Testytic<lLogS)? 


+4#¢(Testytic>zLogS> AND (Testytic< Log?) +6.5*(TestyticrLog?7)>? 

5260 RETURN 

$270 SUBEXIT 

S280 SUB Laxes(Xtic, Ytic, Xorg, Yorg,Xmaj, Ymaj,Minticsize, Xmin, Xmax, Ymin, Ymax? 
$290 OPTION BASE @ 

3388 ! 

5318 COM Alpha, Talpha, Rho, Trho,Rho_initial, Trhot,Rhot, Trhot,Rho2, Trho2 
$320 COM F,23,24,Norm, Thetai,Tdelta 

3338 COM Date$,Plot$,Familys,Chart$,Main$,Maini$,Flag#, Y_hard$s 

$349 { 

$358 COM Stuff$,Redraws, Digitize$,Ray traces 

3360 COM INTEGER I,J,Y@_loop,Nray,Nray _chart,Nray_ family,Nray stuff 
$378 COM INTEGER Nray_trace,Nray _density,Add_ray,Nc,Ns,Nbeta, Fl ag 

3380 ' 

3392 COM INTEGER Line_count,Line_max,N_increment,Hit_total,Pselect,Hpib 
5486 COM INTEGER Family, Surf_no 

3419 COM REAL Theta critical, Tol,Ni,N2,Ns, Delta_ray, YO, Ya, Yb,Aperture 
$428 ! 

3430 - COM Y_bullet,Smax_familv,Percent_image 

S440 COM X1C#),Y1C#), XC CH, X26#), YQ2CH), XQmaxC#), Y2max( #) 
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COM Y¥3C#),74C#), Berac#), S204), XsurfmaxC#), Ysurfmax *) 
; : 

COM Qacl#),Smax(*), Al pha2(*4),Rho26#), Hit ¢#) 
1 


J 

THIS ROUTINE IS USED TO DRAW AND LABEL THE AXES FOR THE FOLLOWING 
! ROUTINES: 

1> CHART 

2) FAMILY 

3) STUFF 

4) DENSITY 

5S) RAY_TRACE 

| 


Flag} 
DEG 
LINE TYPE 1 
LDIR 9 
LORG 5 
IF €Xmin>=Xmax) OR C¥min>=Ymax)? THEN SUBEXIT 
GRAPHICS 
Xfudge=.02*(Amax-Xmind 
Y¥fudge=.02*(Ymax-Ymin?) 
Xmaj=i 
Ynaj=1 
Minticizez2 
IF CDigitizes="Y") OR (CDigitizes="y") THEN Digit_axis 
IF CRay_traces="Y¥") OR CRay_trace$2"y") THEN Ray_trace_axis 
IF (Chart$="¥") OR (Chart $="y") THEN Chart_axis 
IF (Family$="¥") OR CFamilys="u") THEN Family_axis 
IF (Stuffs2"7¥") OR CStuffSa"y") THEN Stuff_axis 
Chart axis: LINE TYPE 3 
GRID Xtic,Ytic, Xorg, Yorg, Xmaj, Ymaj, 2*Minticsize 
LINE TYPE 1 
GOTO Labelx 
Family axis: AXES Xtic,Ytic, Xorg, Yorg,xmaj, Ymaj,Minticsize 
GOTO Labelx 
Stuff_axis: AXES xXtic,Ytic,Xorg, Yorg,xXmaj, Ymaj,Minticsize 
GOTO Labelx 
Ray trace axis: AXES xtic, Ytic, Xorg, forg, Xmaj, Ymaj,Minticsize 
GOTO Labelx_ray 
Digit_axis: AXES .1,.1,0,0,1,1,2 
GOTO Labelx_d 
Labelx: FIXED 3 
LDIR 938 
LORG 8 
Par xs FOR AzXorg TO Xmax STEP ABSCXtic? 
MOVE A, Yorg-Yfudge 
LABEL USING $950;A 
IMAGE DD.D 
IMAGE DD.DD 
IMAGE #,K 
NEXT A 
Labely: LDIR @ 
LORG 8 
Pary: FOR AtYorg TO Ymax STEP ABSCYtic? ! FOR CHART AND FAMILY 
MOVE Xorg-xXfudge,A 
LABEL USING S9598;A 
NEXT A 
GOTO Label_ 
Labelx_ray: LDIR 98 
LORG 8 
Parx_ ray: FOR A=Xorg TO Xmax STEP ABS(Xticd 
MOVE A, Yorg-Yfudge 
LABEL USING $9350; 
NEXT A 
Labely ray: LDIR @ 
LORG 8 
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61228 
6138 
6149 
6152 
6169 
6178 
6138 
6199 
6239 
6218 
6228 
6239 
6243 
6250 
6262 
6272 
6282 
6298 
6382 
6312 
6320 
6339 
6342 
6352 
6362 
6378 
6388 
6399 
6483 
6413 
6429 
6439 
6449 
64538 
6462 
6472 
6489 
6498 
6588 
6512 
6528 
65398 
6542 
6558 
6563 
6579 
6582 
6598 
6682 
6619 
6629 
6639 


6643 
6659 
6669 
6678 
6689 
6699 
6708 
6718 
6729 
6738 
6743 
6753 
6768 
6778 


Pary ray: FOR n@—7 bullet TO ¥ bullet STEP ABSCYtic> | FOR RAY_TRACE 
MOVE Xorg-Xfudge,A = 
IF ASO THEN LABEL USING S958;5A 
IF AsO THEN Next_a 
LABEL USING 61798;A 


IMAGE DD.D 
Next_as; NEXT A 
GOTO Label_ 
Labelx d: LDIR 98 


LORG 8 
FOR A=-Y_bullet TO Y_bullet STEP .1! 
MOVE A, Yorg-Yfudge 
IF A=@ THEN LABEL USING S9S@Q;A 
IF A=O THEN GOTO Next_aa 
LABEL USING 61708;A 
Next aa: NEXT A 
Labely_d: LDIR 9 
LORG 8 
FOR ASS TO Y_bullet STEP .1 : 
MOVE Xorg-Xtudge,A 
IF AZO THEN LABEL USING 5958;A 
IF A=O THEN GOTO Nexta 
LABEL USING 6178;A 


Nexta: NEXT A 

Label_: SETGU 
LDIR 8 
LORG §$ 
CSIZE 2.5 


IF CDigitizes="V¥")> OR CDigitizes="y"> THEN Digit_1 abel 
IF (Ray tracess"V") OR (CRay_traces="y") THEN Ray trace_| abel 
IF (Charts=e"¥") OR (Charts$="y") THEN Chart_1l abel 
IF (Familys="Y¥"> OR (Familys="y") THEN Family_label 
IF ¢Stuffse"¥"> OR CStuffS="y"> THEN Stuff_label 
Chart label: Centerx=74. 88 
Centery=64 
i 


MOVE .S#Centerx,9 

LABEL USING 5S00;5F 

IMAGE “Design Focal Point : ",0D.DD," inches” 
MOVE 1.S5#Centerx,93 

LABEL USING 6530;Nray_chart 

IMAGE “Number of Rays 3: ",K 
MOVE .S#Centerx,S 

LABEL USING 6568;Al pha 

IMAGE “Alpha : "DD.DD" deg" 
MOVE 1.5#Centerx,S5 

LABEL USING 6598;N2 

IMAGE “n2 : “,D.DDDDD 

i 


CSIZe 3 
MOVE Centerx,15 
LABEL "S : Distance Rliong Refracted Ray in the Lens ¢ Inehes )D 


LDIR 92 
MOVE .8,Centery 

LABEL “Alpha 2 : Angle of the Tangent Line at” 
MOVE 4.8,Centery 

LABEL “the Second Surface ¢ Degrees >" 

' 


GOTO End_label 
Family label: Centerx=Centerx_family=72.5 

Centery=Centery fami ly=56.5 

' 
IF (Stuffs2"7"> OR CStuff$e"y") THEN Stuff_label 
MOVE .S#Centerx,9 

LABEL USING 5S500;F 
MOVE 1.S5#Centerx,9 
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67898 LABEL USING 6530;Nray family | 


67998 MOVE .S*Centerx,5 

68900 LABEL USING 6S560;RiIpha 

6819 MOVE 1.5*Centerx,5 

6820 LABEL USING 6590;N2 

68398 \ 

6842 MOVE Centerx,23 

6859 LABEL "Distance Rlong GLM Axis Cinches>" 
6869 CSIZE 3 

6879 MOVE Centerx,15 

6880 LABEL “FAMILY OF SURFACES" 

6899 LDIR 938 

69939 MOVE 1.5,Centery 

6919 LABEL “Radial Distance from the Axis Cinches)" 
6929 

6939 GOTO End_1 abel 

6940 Stuff_label: Centerx=72.5 

6950 Centery=66.5 

6969 { 

6979 MOVE .S#Centerx,9 

6989 LABEL USING 6S500;F 

6990 MOVE 1.5*Centerx,9 

7380 LABEL USING 6530;Nray_ stuff 

7818 MOVE .S#Centerx,5 

7820 LABEL USING 65698;Alpha 

7030 MOVE 1.5#Centerx,S 

7048 LABEL USING 65903;N2 

7859 MOVE Centerx,5 

78698 LABEL USING 7079; RAperture 

7378 IMAGE “Aperture : "DD.DDD" inch" 

7888 \ 

7890 MOVE Centerx, 23 

7188 LABEL “Distance Along GLM Axis Cinches>?" 
7118 CSIZE 3 

7128 MOVE Centerx,15 

7138 LABEL USING 7148;Family 

7148 IMAGE “SURFACE NUMBER "“K 

7158 

7168 LDIR 98 

7172 MOVE 1.5,Centery 

7188 LABEL “Radial Distance from the Axis Cinches>?" 
7198 ! 

7200 GOTO End_label 

7210 Ray _trace label: Centerx=72.5 ' CHANGE IN GRAPH AS WELL 
7220 Centery262.5 

7239 f 

7248 MOVE 1,.5*Centerx,9 

7258 LABEL USING 6520;Nray trace 

7260 MOVE .S*Centerx, 19 

7279 LABEL USING 7280;Rho_initial 

7280 IMAGE “Incident Ray Angle : “,3D.DD," deg” 
7299 MOVE .S#Centerx,6 

7380 LABEL USING 7079;Aperture 

7319 MOVE 1.S5#Centerx,5 

7320 LABEL USING 6599;N2 

7330 MOVE .S*Centerx,2 

7349 LABEL USING 6569;Alpha 

73590 MOVE Centerx,23 

7368 LABEL “Distance Along the GLM Axis ¢ inches >)" 
7372 f 

7389 CSIZE 3 

7398 MOVE Centerx,15 

7430 LABEL USING 7410;Fami ly 

74198 IMAGE “SURFACE NUMBER ",K 

7420 f 

7430 - LDIR 99 

7442 MOVE 1.3,Centery 
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7450 
7462 
7478 
7480 
7490 
7508 
7510 
7320 
7538 
7540 
7558 
7560 
7378 
7580 
73599 
7680 
7618 
7620 
7638 
7648 
7658 
7668 
7678 
7638 
is" 

7690 
7708 
771@ 
7728 
7730 
7748 
7758 
7768 
7778 
7780 
7790 
7800 
7818 
7820 
7838 
7840 
7858 
7860 
7878 
7880 
7890 
7980 
7910 
7920 
7930 
“7948 
79350 
7968 
7970 
7980 
7990 
8800 
8010 
8820 
8839 
8843 
885 
8060 
8072 
8880 
83899 
8100 


Digit 


End_} 


SUB 4 
OPT 
{ 
COM 
{ 
INT 

DEG 

DEF 


DEF 


One: 


S 
SUBE 
SUB D 
OPT 

i 
com 
COM 
CON 

i 
COM 
Com 
- COM 

{ 


LABEL “Radial Distance From the Axis ¢( inches )" 
1 
GOTO End_label 
label: Centerx=61.56 
Centery=65 
i 


MOVE 1.S5#€anterx, 13 

LABEL USING 5530;Nray_ trace 
MOVE Centerx/2,9 

LABEL USING ?550;Hit_toral 

IMAGE “Number of Hits on the Image Plane : ",K 
MOVE 1.S5*Centerx,93 

LABEL USING 7588;Percent_image 

IMAGE "% of Rays to Image Plane : ",3D.0D 
MOVE 1.S5#Centerx,5 

LABEL USING 7618323 

IMAGE “Image Plane : ",DD.DD," inches" 
MOVE .S*Centerx,5 

LABEL USING 7648;N_increment 

IMAGE "Number of Increments €0,1.1] 3: ",K 

\ 


CSIZE 3 
MOVE Centerx,2@ 
LABEL “Normalized Number of Hits vs Distance from the GLM Ax 


MOVE Centerx’Z,13 
LABEL USING ?7710;Family 
IMAGE “SURFACE NUMBER ",K 
abel: CSIZE 1574.34 
uDIR @ 
LORG § 
SETUU 
SUBEND 
tpos¢xX, ¥) 
ION BASE @ 


Alpha, Talpha, Rho, Trho,Rho_initial, Trhoi,Rhol, Trhol,Rhoe, Trho2 


EGER 2 
FNY1CY)=VY#Talpha’(Talpha-Trhoi>) ! FINDS THE Y-VALUE OF THE [INTERCEPT 

' OF THE RAY AND THE FIRST SURFACE 
FNXICY)sY7Talpha ! FINDS THE 4-VALUE OF THE INTERCEPT OF THE RAY 

' AND THE FIRST SURFACE 
YsSFNYICY) 
XBFNXICY) 
SUBEND 
SUB Char 

FOR Z=@ TO 79 


IF 2279 THEN 7960 
PRINT CHRS$¢(228);5 

IF 2379 THEN PRINT CHRS$C228) 
NEXT 2 
UBEXIT 
ND 
ialogue 
ION BASE @ 


Alpha, Talpha,Rho, Trho,Rho_initial,Trhoi,Rhol, Trhol,Rhoe, Trho2 
F,23,24,Norm, Thet ai, Tdelta 
Dates,Plots$,Family$,Charts,Mains$,Mainis,Flags,Y_hards 


Stuf f$,Redraws, Digitizes,Ray traces 


INTEGER I,J,70_loop,Nray,Nray chart,Nray family,Nray stuff 
INTEGER Nray_trace,Nray density, Add ray,Nce,Ns,Nbeta, Flag 
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8110 
8120 
3130 
8149 
8150 
8160 
81708 
8180 
8190 
8200 
8218 
82208 
8230 
8240 
8250 
8260 
8270 
8280 
8290 
8300 
8318 
8328 
8330 
8340 
8350 
8368 
8370 
8380 
8390 
8400 
8410 
8420 
8430 
8440 
8450 
8460 
8478 
8480 
8490 
85380 
85108 
85290 
8530 
8540 
8550 
83560 
8570 
8580 
8598 


8600 
8619 
8620 
8630 
rface” 
8640 
863590 
86690 
8670 
8680 
8692 
87280 
8710 
8720 


INTEGER Line_count,Line_max,N increment, Hit_total,Pselect,Hpib 
INTEGER Family, Surf_no 
REAL Theta critical, Tol,Nit,N2,N3, Delta rav,Y0,Ya, Yb,Aperture 


Y_bullet,Smax_family,Percent image 
RISA g TE Gt) RCC), KaCH) , YSC*), Xemax#), Vdmax  *) 
Y3C#9, 9404), Bet al#), S204), Xsurfmax(*#), (surtmax (*) 


QaC#)d, SmaxC#),Alpha2¢#),Rho2¢*),Hit¢c#)d 


! THIS ROUTINE INITIALIZES MOST OF THE VARIABLES USED IN THE PROGRAM 


DEG 
Initialize top:Alpha=2l 


PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 


PRINT 
PAUSE 
PRINT 
PRINT 


PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PAUSE 


8738 Alpha: 


8748 - 


PRINT PAGE, " 
PRINT “half-angle? 


Talpha=TANCAI phad 

Tol=. 90901 

23224=58 

Nizt 

N2=4 

N3=1 

F=4q 

Y_bullet=l.t 

Ya=@ 

Ybs¥_ bullet 

Aperture=Yo-Ya 

Add_ray=@ 

Nray=10 

Rho_initial =Rho=9 

TrhoisTrho=TAN(CRho_initial> 

Line_count=0 

Line_max=45 

N_increment 2190 

Pselect=7 

Hpibss 

Plot s$s"C" 

Dates="" 

Familys="N" 

Stuf f$S="N" 

Digitizes="N" 

Redraw$="N" 

Ray_trace$s="N" 
PAGE, "Note to the operator: i 
LINC2)," When a request for 
"two options exist: "™ 
ETNGi>, * 1) key 
a 2) PRESS CONT 
a has not or 
Fs doubt, key 


WHEN YA # @ THEN THEN THE BORDERS JF THE 
APERTURE ARE ILLUSTRATED BY DRAWING A 
RAY AT YsYa AND Y=Yb. THIS IS DONE BY 
ADDING A RAY TO ALL NRAY_x DECLARATIONS 


information is placed on the screen" 
in the required information and PRESS CONT." 

if the data/’parameter or other response " 

will mot change from the previous entry. If in" 
in the correct response or data and PRESS CONT. 


LINC2Z), "PRESS CONT” 


PAGE, "The sign convention is :" 

EINC1, “ 1) the origin is placed at the vertex of the first su 
PRINT ” and the GLM axi3." 

. 2> distances: positive to the right of the origin.” 

= positive above the origin (Radial distance)." 
= positive out of the meridian plane (screen>)." 
a Cie. a right hand system.)" 


o 3) angles: POSITIVE IF counter-clockwise” 
s rotation from the GLM axis to the ray” 
LINC2)>,"PRESS CONT" 


Alpha is the angle of inclination Cie. the cone" 
of the FIRST surface with respect to the GLM~axis 
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87358 PRINT LINC3)>)," The current value of ALPHA is"; Alpha; "degrees" 


8762 INPUT "WHAT IS NEW VALUE OF ALPHA <DEGREES>?",Alpha 

8778 Talpha=TRNCAl pha>d 

8788 Index: PRINT PAGE, " The Jens system is assumed to be operating in air." 
87993 PRINT “Therefore the first index of refraction ‘is defined as nl= 1.90598 
8889 PRINT LINC2), “ It 18S aSsumed that ni < n2" 


8812 PRINT " 


and n2 > n3." 


8820 N2: INPUT “WHAT IS n2 (DEFAULT VALUE = 4) ?",N2 
8838 N3: INPUT “WHAT IS ns (DEFAULT VALUE = 15 ?",N3 


8843 IF N3<N2 THEN Theta critical =ASNCN3/N2) 

8859 IF N3>N2 THEN BEEP 

886e IF N3>N2 THEN DISP “ne MUST BE > n3. PLEASE RE-ENTER nz AND n3. " 

8872 IF N3>N2 THEN WAIT 4002 

8889 IF N3>N2 THEN N2 

8898 Rho_initial: PRINT PAGE," The rays incident on the first surface are " 
8988 PRINT “assumed to be parallel to the GLM-axis. " 

8919 PRINT LINCS), "PRESS CONT" 

8928 PAUSE 

89328 RhosRho_initial 

3949 Trho2zTANCRho> 

8959 CALL Snel] ' COMPUTE RHO1 

8968 Y_bullet: PRINT PAGE, " The GLM is assumed to be symmetric around the long 
itudinal" 

8972 PRINT “axis. The maximum radius, called Y_bullet, is “;¥_bullet;” 
inches. " 

8983 PRINT LINC2), " If your design requires a different radius, plea 
se" 

8999 PRINT “enter the new value now." 

98980 INPUT "Y_bullet CINCHES) ?",Y_bullet 


98190 Aperture: PRINT 


from the GLM axis, " 


9828 PRINT 

wed to enter” 

98323 PRINT 

9849 PRINT 
Pe ras inch)" 

928352 PRINT 
Inch" 

9868 PRINT 

92873 INPUT 

9889 INPUT 

92899 IF 

9198 IF 

es." 

91198 IF 

9128 IF 
9132 IF 

9142 IF 


PAGE, “ The aperture is the difference in radial distance 
“srojected onto the first surface, into which Jight is allo 


"the GLM optical system. The parameter values are: " 
CINC2), " Ya = the lower aperture limit Cdefault value = 


; Yb = the upper aperture limit (default value = "3b; 
a and is always less than or equal to ¥_bDullet." 


"WHAT IS Ya CINCHES) ?",Ya 
"WHAT IS Yb <CINCHES) ?7°,Yb 


Ya>s2Yb THEN BEEP 
Ya>=Yb THEN DISP “Ya MUST BE < Yb. Please enter correct valu 


Ya>s¥b THEN WAIT 3090 

Ya>2V¥b THEN Aperture 

Yb>Y_bullet THEN BEEP 

Yb>Y_bullet THEN DISP "Y_bullet MUST BE > Yb: PLEASE RE- 


ENTER Y_bullet,Ya AND Yb." 


915a IF Yb>Y_bullet THEN WAIT 39982 

9162 IF Yb>Y_bullet THEN Y_bullet 

9178 Aperture2/b-Ya 

9182 IF Ya<>@ THEN Add_ray=1 

9198 Nray: PRINT PAGE, * The program will trace"sNray;" rays through the system 


usless " 


9229 PRINT “you specify another value.” 

9218 PRINT LINC2),"CRUTION: Entering too many lines wil] clutter the des 
ign chart." 

9228 PRINT " Try"s;Nray;" rays, then decide if you want more 
or less rays." 

92398 INPUT " HOW MANY RAYS DO YOU WANT THE PROGRAM TO TRACE °",Nray 

9248 IF Nray<2 THEN BEEP 

9252 IF Nray<2 THEN DISP "YOU MUST USE AT LEAST TWO (C2) RAYS. PLEASE R 
E-ENTER THE CORRECT VALUE." 

9260 - IF Nray<2 THEN WAIT 25900 

92728 IF Nray<2 THEN Nray 
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9280 Focus: PRINT PAGE, “ The focal point 1s the location on the GLM-axis at wh 
ich ™ 

9290 PRINT “you want all of the rays to pass through. " 

9300 PRENT LINC2>, “ The minimum value of the focal point is "3%_bullet/ 
Talpha;" inches. " 

9319 PRINT "This value has been chosen to prevent the angle of the tangen 
t line” 

9320 PRINT “of the second surface from exceeding 390 degrees at y 2 “$Y¥_bu 
llet 

93390 PRINT "Cie. at y # Y_bullet inches >." 

9340 PRINT LIN¢2)," The default value is "“5;F;" inches." 

9350 INPUT "WHAT IS THE VALUE OF THE FOCAL POINT ?",F 

9360 Date: PRINT PAGE 

93790 INPUT “WHAT IS TODAY’S DATE ?", Dates 

9380 Start: PRINTER IS 16 


9390 
94290 
94190 
9428 
9430 
9448 
94590 
9468 
9479 
9489 
9499 
9580 
9519 
9528 
9538 
9548 
9550 
9568 
9570 
9586 
9599 
96909 
9610 
9620 
9630 
9648 
9658 
9668 
9678 
9680 
9699 
9788 
9718 
9728 
9738 
9749 
9759 
9768 
9778 
9788 
9798 
9800 
9819 
9820 
9830 
9849 
9859 
9868 
98790 
9888 
9890 


Gymnastics: SUBEND 
SUB Chart 
OPTION BASE go 
COM Alpha, Talpha, Rho, Trho,Rho_initial, Trhoi,Rhol, Trhot,Rhoz, Trhoe 
COM F,23,24,HNorm, Thetai, Tdelta 
COM Dates,Plats,Familys, Chart S$, Mains, Mainis,Flags,Y_hards 
1 


COM Stuf f$,Redraw$, Digrtizes$,Ray traces 
COM INTEGER I,J,Y@_lo00p,Nray,Nray chart,Nray family,Nray stuff 
COM INTEGER Nray trace,Nray density,Add ray,Nc,Ns,Nbeta, Flag 


COM INTEGER Line_count,Line_max,N_increment,Hit_total,Pselect,Hpib 
COM INTEGER Family, Surf_no 
COM REAL Theta_critical,Tol,Nl,N2,N3, Delt a_ray, /0,Ya,Yb,Aperture 


COM Y_bullet,Smax_ family,Percent image 
COM X16#>, VLC, KOCHI, NACH, Y2CHd, NQmaxC#), Y2maxC#) 
COM Y36#),74C#), Bet att), S264), Xsurfmaxc#), Ysurfmax *) 


COM Qac#),Smax(#),Alpha2(#),RhHo26#), Hit C#) 

THIS ROUTINE COMPUTES AND DRAWS R FAMILY OF CURVES REPRESENTING THE 
RELATIONSHIP BETWEEN THE DISTANCE ALONG THE RAY REFRACTED RT THE FIPST 
SURFACE OF THE LENS AND THE SLOPE CDERIVED FROM SHELL’S LAWS REQUIRED 
TO SUCCESSFULLY REFRACT THAT RAY THROUGH THE DESIRED FOCAL POINT. 


! 
! 
! 
l 
l 
{ THE NOTABLE YARIRABLES ARE: 

{ 1> BETA : THE ANGLE OF A LINE DRAWN FROM THE FOCAL POINT TO THE 

! INTERCEPT OF THE RAY AND THE FIRST SURFACE 

! 2> RHO1 : THE ANGLE OF THE REFRACTED FROM THE FIRST SURFACE WITH 
! RESPECT TO THE GLM-AXIS CREF) 

: 3> RHO2 : THE REQUIRED ANGLE OF THE REFRACTED RAY FROM THE SECOND 
! SURFACE WRT REF 

! 4> HIGH ©: RHO! > BETA 

! S> LOW =: RHOL < BETA 

! 6> ALPHA2 : THE SLOPE OF THE SECOND SURFACE WRT REF REQUIRED TO 

! SATISFY SNELL’S LAW 

l 7> S$ 3 THE DISTANCE ALONG THE RAY REFRACTED FROM THE FIRST 

! SURFACE, MEASURED FROM THE FIRST SURFACE 

! 8) Q@: INTERCEPT POINT OF THE INCIDENT RAY AND THE FIRST SURFACE 
! 9> As X=INTERCEPT OF THE RAY REFRACTED AT Q 

! 10> QA : DISTANCE FROM Q@ TO A 

1 


DEG 
Nr ay_chart=Nray 
IF (Steurfse"y"> OR CStuffSs"y") THEN Nray chart=Nray stuff 
Charts$2"y" 
CALL Header 
Flag=0 
Draw axes: CALL Plot 


144 





9900 Beta: FOR Is1 TO Nray chart ! COMPUTE BETA FOR EACH RAY 


9919 ToetazVY1iclorc Kl cl) -F) 

9928 BetacI2ATN¢( Tbeta)d 

9930 AZX1LCIIAW¥1ICTIO7Trhol ' COMPUTE THE DISTANCE ALONG THE REFRACTED 
9942 Qa2scxXlcII-AdrereViciIo*2 !' RAY TO THE X-INTERCEPT 

995¢ QacI> =SQR(Qaead ' THIS IS THE MAK ALLOWED VALUE UF §$ 
9969 NEXT I 

997@ Chart: FOR Nbeta=1 TO Nray chart ' COMPUTE ALPHA2 AND S FOR ERCH FAY 
9989 $820 

9990 Smax=QacNbet ad 

19890 Nstep=Smax7 iv 

19016 J=9 

19629 S$: FOR S$=S@ TO Smax STEP Nstep 

19038 JzJ+1 

10049 IF ABSC Bet at Nbet a) >ABSCRHO1L) THEN High 

18959 IF S<@ THEN Next beta 

108698 Low: CALL Low regions, Alpha2, Nbet ad 

100798 IF Tdelta<@ THEN Negative 

198088 IF Rho2>@ THEN Negative 

19098 IF Alpha2>=30 THEN Negative 

18100 IF Line _count >Line_max THEN CALL Header 

101198 PRINT USING Image data;Nbeta, Bet aCNbeta), Thetai,Norm, Rno2,5,A!] pha2 
191208 Line _count=Line_ count +1 

19139 GOSUB Graph 

19148 GOTO Next 3 

10150 High: CALL High_region(s, Alphae, Nbet ad 

19169 IF Tdelta<@ THEN Negative 

10178 IF Rho2>0@ THEN Negative 

19189 IF Alpha2>=90 THEN Negative 

10190 IF Line_count >Line_max THEN CALL Header 

19209 PRINT USING Image_data;Nbeta, BetaCNbeta), Thetai,Norm, Rhno2,5,Alpha2 
18219 Line_count=Line_count+l 

19220 GOSUB Graph 

18238 GOTO Next _s 

10240 Zero _cross_oversA=F*eSINCAl phad/SINCAl phatABS (Bet acNbet add) 'THIS 

192598 BaS#COSCABS<( Bet atCNbeta. -ABS(RhO1I>) |! CONDITION EXISTS It 
19268 D=A-B |! HIGH WHEN ALPHAZ > 24 DEGREES 
19279 ExS#SINCABS<( Bet a(Nbeta) -ABSCRhol) > 

19280 Tdelta=E/D 

10298 Arho2=ABS¢< Bet aCNbet 4a) >+ATNCTdelt ad 

18390 IF Arho2<@ THEN Negative 

10318 Rho2=-1#Arho2 

18320 Norm_z_cross:A=COS(Rho2) -N2/N34CO0SCRhol Dd 

18338 BaN2/N3*SINCABSCRHO1L) -SINCABSC(RHO2) Dd 

19340 Tnorm=B/A 

19330 Norm2ATNC Tnorm) 

19368 Thet ai =Norm+ABS¢(Rhol 

10378 Thet ar =Norm+ABS(Rho2) 

19388 Alpha2=Norm+90 

19390 IF Line_count >Line_max THEN CALL Header 

18400 PRINT USING Image _data;Nbeta, BetaCNbeta), Thetai,Norm,Rnoz,S,Alpha2 
19419 Line_count=Line_count+l 

19420 GOSUB Graph 

10430 Next _s:Smax (Nbeta)=S$ 

10449 Alpha2¢Nbet a)=Alpha2 

19458 NEXT S$ 

10460 S=S-Nstep 

10478 IF S<QacCNbeta>) THEN Negative 

10480 Next beta; IF Line_count >Line_max THEN CALL Header 

10490 PRINT 

10300 Line_count=Line_count+1 

18316 Fl ag=2 ' LABEL THE PLOT WITH NBETA 

19329 GOSUB Graph 

19538 Flag=1 ! RESET 

180349 NEXT Nbeta 

19530 - Flag=3 ' TELL GRAPH THIS IS THE LAST BETA 
10369 CALL Graph 
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18572 
18580 
18598 
18608 
18618 
18620 
18639 
18640 
18658 
10660 
180678 
18680 
18698 
18782 
180718 
18720 
18738 
18740 
18758 
18762 
18778 
18788 
18798 
18800 
180812 
18820 
18832 
180840 
18850 
18868 
18870 
180882 
18898 
18980 
18912 
18928 
18938 
18948 
18952 
18962 
18978 
18988 
18998 
11800 
1181 
11820 
11838 
11840 
118508 
11068 
11872 
11082 
11898 
11100 
11110 
11128 
11138 
11142 
11150 
11162 
11170 
11180 
11192 
11209 
112108 
11220 
11232 


Chart $="N" 
CALL Header_end 
SUBEXIT 


Negative: IF Nstep<Tol THEN Next beta 


S*S-Nstep ! RHOZ < 8 FOR LOW OR ALPHA2 > O@°FOR HIGH OR LOW 
S@=s 

Nstep=Nstep-/19 

Rho2=8 

GOTO $s 


Graph: GRAPHICS 


SETUU 

LINE TYPE 1 

LDIR @ 

LORG 2 

CSIZE 2.5 
IF J=1 THEN MOVE $,Alpha2 
IF J=2 THEN DRAW 3,Alpha2 ! DO NOT CHANGE 
IF ¢J>#3) AND <Flag<>2> THEN DRAW $,Alpha2 ! DO NOT CHANGE 
IF Flag=2 THEN LABEL USING 18770;Nbeta 

CSIZE 15/”4.54 

IMAGE K 


RETURN 


Image data: IMAGE DDD, 4X,3¢4D.30,5x%),40D.30,5%,20.3D,5x%, 40. 30D 

! IMAGE STATEMENT IS FOR Nbeta, Bet atNbeta), Thetai,Norm,Rho2,S,Alpha2 
SUBEND 

SUB Low region¢S,Alpha2, INTEGER ND 


OPTION BASE @ 
| 
COM Alpha, Talpha,Rho, Trho,Rho_initial, Trhoi,Rhol, Trhol,Rho2, Trho2 
COM F,23,24,Norm, Thetai,Tdelta 
COM DatesS,Plots,Family$,Charts,Mains, Mainls,Flags,Y_hards 
1 
COM Stuffs,Redraw$, Digitizes,Ray traces 
COm INTEGER I[,J,Y@_loop,Nray,Nray chart,Nray family,Nray stuff 
COM INTEGER Nray_ trace,Nray density, Add ray,Nc,Ns,Nbeta,Flag 
[ 
COM INTEGER Line_count,Line_max,N_increment,Hit_toral, Pselect,Hpib 
COM INTEGER Family, Surf_no 
Com REAL ee ae oe sr OU NL Ns Sa: 8 Sty te sg 2h > pecure 
' 
COM Y_bullet,Smax_ family,Percent_image 
COM K1¢#), Y1Ce), Ke Ce), X26), Y2C#), X2max#), Y2max(#) 
COM Y3¢4), Y4¢#), Beeac*), S2¢*), Xsurfmax¢#), Ysurfmax¢*) 
' 
COM QaC#),Smax(#), Al pha2(*#),Rho26*), Hit #) 
1 
DEG 
TdeltasA=SINCAl phat+ABS(BetatNI)) |! COMPUTE RHO2 = FCS) 
B=F*SINCAl phad/A 
C=S#COSCABS(CRhHOLI-ABS<( Bet aNd) 
D=B-C 
E=S*SINCABS(Rhol -ABS<( Bet aNd) 
Tdelta=E-/D 
Delt asATN¢(Tdelta> 
Arho2=ABS¢BetaCN)>-Delta 
Rho22-1*Ahrho2 
Normal :A2COSCRhHO2.-N2/“N3*COSCRHOL> |! COMPUTE ALPHA2 = fFCRHO2) 
BeSINCABS(RhO2]) D~-N2”“NS*#SINCABSCRhOL D> 
Tanorm=B/A 
Anorm=ATN¢Tanorm) 
ThetaizAnorm-ABSCRhOL) 
Thet ar=Anorm-ABSCRhO2) 
Norm==-1*#Anorm 
Al pha2290+Norm 
SUBEND 
SUB High region¢(s.Alpha2, INTEGER ND 


OPTION BASE 9 
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11248 
11250 
11260 
11270 
11280 
11298 
11399 
113190 
11320 
11339 
11340 
11359 
11369 
11378 
113890 
11399 
11499 
11410 
11428 
114398 
11449 
1143598 
11468 
11478 
114898 
11499 
115900 
11519 
115290 
11538 
11549 
11559 
11569 
11579 
11589 
11599 
11699 
11619 
11620 
11639 
11640 
116590 
11669 
11670 
11689 
11699 
11790 
11718 
117290 
11739 
11749 
11759 
11769 
11779 
11789 
11799 
118990 
11819 
11820 
11839 
11849 
118590 
11869 
11879 
11889 
11898 
11900 


COM Alpha, Talpha, Rho, Trho,Rho_initial, Trhoi,Rhol, Trhol, Rhode, Trhsa2 
COM F,23,24,Norm, Thetai,Tdelta 
COM Date$,Plotrs,Familys, Chart $,Main$,Mainl$,Flag$, Y_hards 
COM Stuff#,Redrauw$, Digitizes, Ray_traces 
COM INTEGER I,J,Y8_loop,Nray, Nray_ chart,Nray_ family,Nray stuff 
COM INTEGER Nray_trace,Nray density,Add ray,Ne, Ns,Nbeta, Flag 
1 
COM INTEGER Line_count,Line_max,N_increment,Hit_total,Pselect,Hpib 
COM INTEGER Family, Surf_no 
COM REAL Theta critical, Tol,N1,N2,N3, Delta ray, /Q, Ya, Yb, Aperture 
1 
COM Y_bullet,Smax_family,Percent_image 
COM X1¢*), VIC), Ke Ce), K2C#), Y2C%), N2max(*#d, Y2maxc#) 
COM Y3¢#),Y¥4C#), Betac#), $2¢%), CORE Cmax<+), Vigietnex (+) 
\ 
COM Qac#),Smax*#), Al pha2 #), Rho2(*),Hitc#) 
1 
DEG 
High: AZFSINCAl phatABS<¢ Bet acN)) >) t COMPUTE RHO2 = FCS) 
B=F*eSINCAl pha) A 
C=S#COSCABS<( BetaCN)>-RBSCRhol)) 
D=B-C 
E=S*SINCABS¢ Bet atCN)>-ABS<(Rhol D> 
Tdelta=E/D 
Arho2=ABS¢ BetatCN))+ATN(Tdeltad 
Rho2=-1*#Arho2 
Normal: A=N2/N3S*SINCABSCRhHO1) “~SINCABSCRKO2) > ' COMPUTE ALPHAS = *CRHO]> 
B=N2-N3*COS¢CRhol1>-CUS(Rho2> 
Tanorm2A7B 
RnormszATN¢Tanorm)> 
Thetai#ABSCRhHO1)-Anorm 
ThetarzABS(Rho2)-Rnorm 
Norm2-1#Anorm 
Rl pha2290+Norm 
SUBEND 
SUB Family 
OPTION BASE 9 
1 i 
COM Alpha, Talpha, Rho, Trho, Rho_initial, Trhoi,Rhol, Trhol,Rho2d, Trho2 
COM F,23,24,Norm, Thetai,Tdelta 
COM Dates, Plats,Familys, Chart $,Main$,Mainl$,F lags, Y_hards 
! 
COM Stuff $,Redraws, Digitizes$,Ray traces 
COM INTEGER I[,J,*O_ loop, Nray,Nray_ chart,Nray family,Nray stuff 
COM INTEGER Nray_trace, Nray density, Add ray,Nc,Ns,Nbeta, Flag 
1 
COM INTEGER Line_count,Line_max,N_ increment, Hit_total,Pselect,Hpib 
COM INTEGER Family, Surf_no 


ee ee ee 


COM REAL Theta critical, Tol,N1,N2,N3, Delta ray, YQ, Ya, Yb, Aperture 
! 


COM Y_bullet,Smax_ family,Percent_image 

COM K1C#), YiCe), Ke C#), X26"), Y2¢#), X2maxC*#>, Y2max¢*) 
COM Y3¢4),Y4C*#), Betac#), S2¢*), allisemaxc+), Pete nieces 
! 


COM QaC#),Smax(#), Alpha2¢#), Rho2¢#), Hit ¢#) 


THIS ROUTINE COMPUTES AND DRAWS A FAMILY OF SURFACES USING THE 
THE DESIGN CHART DRAWN IN SUBROUTINE CHART 

THE ROUTINE TAKES THE END POINTS OF EACH CURVE OF ALPHA] VS S 
AND DRAWS A SURFACE WSING ALPHA2 TO DRAW A LINE TO INTERCEPT THE NEXT 
RAY. THESE SURFACES ARE THEN THE MAXIMUM SURFHCES FOR EACH PARAMETER 
BETA. 


WHEN STUFFS="Y" THE ROUTINE GOES THROUGH THE I LOOP ONCE Cie FOR 
ONE SURFACE) AND THE J LOOP NRAY_STUFF TIMES. 
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feo =! 


11920 DEG 
11930 Familys="¥Y" 
11949 CALL Header 


11950 Ymax=Y_bullet 
meee LINE TYPE 1t 
11970 LDIR 

11980 LORG 5 

11990 CSIZE 1574.54 


12000 Fliag=8 ' RESET CONDITION 

12010 Nray_family=Nr ay 

12920 IF ¢Stuffse"V¥"> OR Stuff S=e"y")> THEN Nray_family#Nray_stuftf 

12030 Draw_axes: CALL Plot ' DRAWS AND LABELS THE AXES 
12049 Step _family=INTCNray_family710> 

120590 IF Step_family<=@ THEN Step_family=l 

12060 First _surf:LINE TYPE 83 ! DRAW THE FIRST SURFACE 

12079 MOVE 9,0 

12980 XzY¥max/Taipha 

12890 DRAW X, Ymax 

121909 DRAW 1080, Ymax 

12119 IF CStuff$2"¥")> OR CStuffSe"y")> THEN Delta_b 

121290 EXIT GRAPHICS 

12130 BEEP 

12149 YS="N" 

121350 INPUT "DO YOU WANT TO DRAW IN THE INCIDENT RAYS ? Y-N",YS 
12160 IF ¢Y¥$#"N") OR CY$=H"n") THEN Delta b 

12170 GRAPHICS 

12189 LINE TYPE 3 

121990 FOR [sStep_family TO Nray_family STEP Step_family 

12209 MOVE 0,Y1¢C1ID 

122190 DRAW X1¢CID,YICID 

12220 ReXicloe¥1¢CI>7Trhol 

12230 DRAW A,O 

122490 NEXT I 

12250 Delta _b: GRAPHICS 

122690 IF Stuff ss"¥")> OR CStuffsS=e"y") THEN Step _family=t 

12279 BlZY1¢Step_family>-X1¢Step_fami lyr *#Trholt 

12280 B2zY1¢Step familytl>-X1¢Step_fami ly+1>*Trhol 

122990 DeltabaB2-Bil 

12300 Starting_points:FOR T=Step_family TO Nray_family STEP Step family 
123190 Jz={I 1 PRINTING PURPOSES 
12320 Flag overs ' RESET CONDITION 
123390 Flag_neg=8 ! RESET CONDITION 
123490 SfirstaSlast=Smax I> 

123390 IF ¢<Stuffse"V¥") OR CStuffSe"y")> THEN Sfirst=Slast=Smax (Family) 
12360 S2¢tdsSlast ' FOR STUFF ONLY 

12370 Delta _xsurfss2cil>*COSscRhol> 

123890 Delta _ysurfzS2c1>*#SINCRhol> 

12390 Xsurfeltsxici>+Delta_xsurf 

12400 Ysurf2ilzevicid+Delta ysurf 

12419 IF CStuffS2"7") OR (Stuff$Se*y"> THEN Asurf21=xicrFamily>)+Delta_xsu 
rf 

124298 IF ¢Stuffsa"y¥") OR (Stuf f$s"y") THEN Ysurf2l=Yicramilyd+Delta ysu 
nf. 

12438 IF Ysurf21<@ THEN GOSUB Neg_ysurf ! THE STARTING POINT 
12449 X2CT>)sXsurf2t ! IS BENEATH THE X-AXKIS 
12459 Y2¢ [> s¥surfet 

12469 XsurfmaxCl>sXsurtf2it ! THESE ARE THE MAXIMUM CX,Y>) COORDINATES OF THE 
12470 Ysurfmax¢]>2Ysurf2t ! RAY .IN THE LENS 

124890 IF Flag _neg=1 THEN GOSUB New_s 

124990 Trho21saY2c1Io7¢CX2cI =F) 

12500 Rho2¢I>#ATNCTrho2t> 

12519 Ripha2i zsAlpha2ct> 

12520 IF CSturfs="¥") OR CStuffS="y">) THEN Al pha2i=Alphae¢Fami ly) 
125390 IF Alpha2i>=#98 THEN Next i 

12540 Talpha2i=TANCAl phaci>? 


12559 


Bsurf2izYsurf2i-Xsurf2iletTalpnadi 
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12560 
12578 
12580 
12590 
12600 
12610 
12620 
126390 
12640 
12658 
12660 
12678 
12689 
12698 
127380 
12710 
12720 
12738 
12740 
12759 
12760 
12770 
127898 
127998 
12880 
12810 
12820 
12830 
12840 
12850 
12869 
12870 
12880 
12890 
129088 
12919 
12920 
12930 
12940 
12958 
129690 
12978 
12989 
12998 
13800 
13010 
13820 
13030 
13048 
1390590 
13868 
13079 
13880 
13090 
13100 
13110 
13120 
13130 
13149 
13159 
13160 
13170 
13189 
13198 
13200 
13218 
13220 


Asurflast2Xsurf2i 
Ysurflast2Ysurf2l 
Bsurflast=Bsurfcl 
IF Line_count>Line_max THEN CALL Header 
PRINT USING 13470;1,J,Rho2¢J>,Xsurflast,Y¥surflast,Slast,Alphaci 
Line count=Line_count+! 


LINE TYPE 1 
Cslge 2s 
LORG 2 
MOVE Xsurf2it,Ysurf2t ! THE STARTING POTIHT 
Surfaces:FOR J=I+1 TO Nray_ family ' DRAW THE PARTICULAR SURFACE 


Bnext=BlecCJ-1)*Deltab 
Numxsurf=Bnext-Bsurfl ast 
Xsurfnext=Numxsurf’¢Talpha2i-Trhol >) 
Ysurfnext2Xsurfnext4«Trhol+Bnext 


A2¢J>2Xsurfnext PUNE SUSED FOR STUFF. DON’T USE AMP Ie 
Y2¢J>2Y¥surfnext ' STATEMENT IN ORDER TO SAVE TIME 
x1=0 


CALL Xipos¢Xl1, Ysurfnext>d 
IF Xsurfnext<=X1l THEN GOSUB Y1 
DRAW Xsurfnext, Ysurfnext 
Xs22OK1¢6 J. -Xsurfnextd*2 ' COMPUTE NEXT VALUE OF S BY 
Y¥s2=C(V¥1¢C J -Ysurfnextd*2 ' EXTENDING THE PAY FROM THE 
Snext zSQRCXs2+Ys2) ' PRESENT POINT TO THE NEXT 
S2¢J>2Snext ! ALPHR2 VS S LINE 
IF ABS<BetatC J >ABSCRHOL) THEN CALL High_region(Snext,Alphaci, Js 
IF ABS<BetacJ))><SABS(Rhols THEN CALL Low_region¢Snext,Alphaci, J> 
Rho2¢J>»=Rho2 
Alpha2¢J>=Al pha2i 
IF Line _count >Line_wax THEN CALL Header 
PRINT USING 134780;1,J,RhH026IJ), X26I9, Y26I9, S26 I>, Alpha2css 
Line _count=Line_count+l 
IF Alpha21>=90 THEN Next _i 
Talpha2i sTANCAl phae2c Js) 
Bsurfnext2=Ysurfnext-XAsurfnext*#Tal phazi 
Bsurflast2Bsurfnext 
Xsurflast2Xsurfnext 
Ysurflast=Ysurfnext 
IF (Stuff se"¥")> OR CStufFSH"v")> THEN 12978 
X2maxCl>2Xsurflast ! USED TO DETERMINE APERTURE FOR STUFF 
Yemax¢I>2Ysurflast 
IF Flag _over=i1 THEN Next i 


Next_j: NEXT J 
Next_i: IF Line _count>Line_max THEN CALL Header 


PRINT 
Line _count2#lLine_count+1 
IF ¢Stuff$e"V") OR CStuff$2"y") THEN 12830 
IF Flag over=@ THEN GOSUB Label surf 
IF ¢Stuff$e2"V7") OR CStuff$2"y")> THEN 13080 
NEXT 1 
LORG § PRE OG I 
CSIZE 1374.34 
IF (Stuff $2"¥") OR CStuffSa"y"> THEN GOSUB Yb 
Flag23 
CALL Graph 
Family$2"N" 
CALL Header_end 
SUBEXIT 
Flag over=1 
Xsurfnext2Bsurflastr(Talpha-Talpha2ti> 
Ysurfnext=Xsurfnext#Talpha 
MOVE Xsurfnext, Ysurfnext ' THE ENDPOINT 
CSIZE 3 
LORG 1 
IF ¢Stuff$2"Nn")> OR (Stuf fS2"n")> THEN LABEL USING 134190; I 
IF ¢Stuffs2"¥") OR (Stuff S2"y") THEN LABEL USING 13419; Family 
MOVE Xsurfnext, Ysurfnext ' PLACE THE PEN BACK ON TOP OF THE POINT 
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13239 
13249 
1325¢ 
13260 
1327@ 
13239 
13299 
133¢@9 
Trhol 
1331@ 
133290 
1333¢e 
1334@e 
1335¢e 
133690 
13378 
133890 


y 
1339@ 
13400 
13419 
13420 
13430 
13442 
13459 
13469 
13470 
13480 
13499 
13500 
13512 
1352e 
13530 
13542 
1355e 
13560 
13570 
13580 
13590 
13600 
13612 
13620 
1363@ 
13649 
13650 
13660 
13670 
13680 
13699 
1370@ 
13710 
13720 
13730 
13740 
1375@ 
13760 
13770 
13780 
13790 
13800 
13810 
1382e 
13830 
,Ys 

13840 
13850 
1386e 


RETURN 
New s: Sy2sY2¢l>-Y1¢I) 
Sx22x2cI>-K1¢1) 
S2CTI#SQRCSx2+Sy2) 
RETURN 
Neg _ysurf: Flag neg=1 ! 
ReXiclo-Yiclo7Trhol 
IF ¢Stuff$2=""") OR CStuff$e"y") THEN R=X1lcFamilyo-Y1l¢C Family? 


IF, FOR SOME NUMERICAL REASON YB1 < @ 


Xsurf2t=A ! START AT THE X-INTERCEPT 
Ysurt2138 
RETURN 
Label surf: MOVE Xsurflast,Ysurflast | 
Csize 3 
LORG 1 
IF (Stutf$2"N") OR CStuff$="n") THEN LABEL USING 1341031 
IF (Stuf f$="¥") OR CStuff$e"y"> THEN LABEL USING 134153;Fami } 


THE ENDPOINT 


MOVE Xsurflast,Ysurflast ! PLACE THE PEN ON TOP OF THE POINT 
RETURN 
IMAGE K 
Yb: Bsm=Y2max(Family-Xemax(Familyo*Trhol ! 
X1=Bsm/(Talpha-Trhol> ! OF THE APERTURE. 
Ybo2Y1=X1*Talpha | THE APERTURE 
Roerture=Yb-Ya 
RETURN 
IMAGE 2X,DDD,5xX,DDD,S5¢SX, DDD. DDD? 
! THE IMAGE STATEMENT IS FOR: I,J,RhO265),X2¢65I9, Y2°0S9, S203, Al pha2t J 
SUBEND 
SUB Ray _trace 
OPTION BASE @ 
1 


COMPUTE THE UPPER LIMIT 
THIS IS THE FINAL VALUE OF 


COM 
COM 
COM 
1 


Alpha, Talpha,Rho, Trho,Rho_initial, Trhoi,Rhol, Trhol,Rho2, Trhoe 
F,23,24,Norm, Thetai, Tdelta 

Dates,Plot$,Fami ly$,Chart$,Mains,Maini$,Flags,Y_hards 

COM 
COM 
COM 
{ 


Stuff$,Redrauw$, Digitizes$,Ray traces 

INTEGER I[,J,7@_loop,Nray,Nray chart,Nray family,Nray stuff 
INTEGER Nray_trace,Nray density,Add ray,Nc,Ns,Nbeta,Flag 
COM 
COM 
COM 
! 
Com 
COM 
COM 
! 
COM 
! 


INTEGER Line_count,Line_max,N_increment,Hit total,Pselect,Hpibd 
INTEGER Family, Surf_no 
REAL Theta critical, Tol,N1l,N2,N3, Delta ray, Y@, Ya, Yb, Aperture 


Y_bullet,Smax_ family,Percent_image 
ALC#D, VLC#D, KOCHI, K26 49, YAOC#), XKomax(*), Yomax #) 
Y¥3¢C4#9, 740%), Betac#), S264), Xsurfmax¢(#), Ysurfmax*) 


Qal#>), SmaxC#), Alpha2¢#),RNo2(*), Hit ¢*) 


‘t 

! THIS ROUTINE CONTROLS THE RAY DIAGRAM FOR AN ARBITRARY NUMBER 
! OF RAYS WHICH IS ENTERED BY THE OPERATOR IN RESPONSE TO A PROMPT 
! 
! 
! 


THE ROUTINE CONTROLS THE FITTING OF A POLYNOMIAL TO A SET OF POINTS 
WHEN AN ARBITRARY RAY DOES NOT COINCIDE WITH A RAY COMPUTED IN STUFF 
DEG 
Ray _traces="Y" 

Select=16 
EXIT GRAPHICS 
YSe"N"* 


INPUT ae 


"DO YOU WANT A HARD COPY OF ALL OF THE GENERATED COEFFICIENTS ? 
IF CY¥Se"Y¥") OR CY¥S$="y") THEN Select =@ 


- Graphics! 
xa} 


oO 








, 13870 
13880 


138990 


13908 
13910 SUB Driver<N, Select, Input, Graphics) 


13920 
13938 
13940 
13950 
13968 
13970 


13980 


13990 
14000 
140198 
14820 
14039 
14940 
14050 
14060 
14870 
14880 
14890 
14100 


N24 


CALL DrivertNn, Select,x,Graphics> 


Ray_traces="N" 
SUBEND 


Ps 


| 
eon BASE 1 
jighovernal.trhol, Rhez, TrhoZz 


Bak eee feo? Trho,Rha initial 


COM 23,24,Horm, Thetai, Tdelta 

COM an Chart $,Mains,Mainl$s,F! ags, ¥Y_hards 

§ 

COM Sturf$,Redraws, Digitizes,Ray traces 

COM INTEGER I,J, ¢0_lo09p,Nray, Nray_ chart,Nray_ familu,Nray stuff 
COM INTEGER Nray trace, Nray density, Add ray, Ne, Ns,Nbeta,Flag 

1 

COM INTEGER Line_count,Line_max,N_increment,Hit_ total, Pselect.Hpib 
COM INTEGER Family, Surf_no 

! 

DIM &Xx€N)D,YVCND, ASCE], BSC2I], Coef fs: 18> 

PRINTER IS Select 

Q=4 

Degree=3 


CALL Polynomial (Xx(#), YyC#),N, Degree, Coeffs(*#),Regss,Resss, Totalas,Re 


gms,Resms,F,Dtreg, Drres, Dftot,Abort>D 


141190 PRINT “Coefficients: " 
14120 FOR I=8 TO Degree 
14130 PRINT USING 1414051,Coeffsc¢I) 
14140 IMAGE “AC“"DDDD">=",K 
141350 NEXT I 
14160 PRINT LINC) 
14170 GOSUB RAovtable 
1413890 IF Graphics AND (Select2=16) THEN WAIT 2009 
14190 IF Graphics THEN CALL Plot_cubic*Q@,A,B,Coeffs¢#), Xx #), YC #),N, Degree 
¢, Select) 
14200 SUBEXIT 
14210 Print: PRINTER IS Select 
14220 PRINT LINC2),SPAC12>5 "DATA" 
142390 FOR I=1 TON 
14240 PRINT USING 1425031,*x¢1I>,Yy¢I)D 
142350 IMAGE “Point #"DDDD":",5X, "X2="DDD.DDDD, Sx, “Y2="DDD.DDDD 
14260 NEXT I! 
14270 PRINT LIN¢C2) 
14280 PRINTER IS 16 
14290 RETURN 
143080 Aovtable: PRINT USING 143190 
143190 IMAGE “Source SK Dellne Soal on. Ms Lak FS, 7 
14320 PRINT USING 143309; Dfreg,Regss,Regms,F 
14330 IMAGE “Regression"5X,MDD,9X,M7D.30,4%,M7D.3D,5X%,M4D. 3D 
14348 PRINT USING 14359; Dfres,Resss,Resms 
14350 IMAGE “Residual "SK,MDD,4K,M7D.3D,4x%,M7D. SD 
14360 PRINT USING 14370;Dftotr,Totalss 
14370 IMAGE “Total ES aig iD Dig Suse lit Die OS Wig 7475 7 5 75 7 
14380 RETURN 
14390 SUBEND 


14400 SUB Polynomial (X¢(#),YC#),N, Degree, Coerfst#), Ras 5 Resss,Totalss,Pegms,Resm 
s,F,Dfreg, Dfres, Dftot, Abort > 


144198 
14420 
14430 
14449 
14450 
14460 
14470 
14480 
14490 
14580 


OPTION BASE @ 
DIM Matrix<Degree, Degree’, Invi Degree, Degree), Bé Degree? 
REDIM Coeffs( Degree) 

IF Degree>oN-2 THEN SUBEXIT ! 
Dfreg=Degree 
Dfres=N-1-Degree 
DrrotzDfreg+Drres 
FOR K=@ TO Degree ! 

FOR J=k TO Degree 

Matrix<K, J>29 


Check for higher degree than possible 


Set up system of equations 
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14518 
14520 
14530 
14340 
14558 
14568 
14579 
143588 
14598 
14680 
14618 
14620 
14638 
14642 
14652 
14668 
14670 
14680 
14692 
14702 
14719 
14720 
14730 
14742 
14752 
14760 
14770 
14780 
14790 
14800 
14816 
14822 
14832 
14842 
148350 
14860 
14872 
14880 
14892 
14908 
14910 
14920 
149390 
14940 
14930 
14960 
14970 
14982 
14990 
15200 
15018 
15820 
130390 
15840 


FOR I=1 TO N 
MatrixCK, J>=Matrix(K, JO*PNGC(K)#FNGC J) 
NEXT I 
Matrix€J,K>)=Matrix(K, J) 
NEXT J 
BCK)=0 
FOR [21 TO N 
BCK I SBCKI 4¢YCI) #FNGCKD 
NEXT I 
NEXT K 
MAT InveINVCMatrix) : 
MAT Coeffs=InveB 
FOR Is1 TON 
XLsxlexcrd 
X22X2¢X CT ¥X CTD 
YrsvY1evycrd 
Y22724Y CT #YCID 
ZaZeXC TL *#Y CT) 
NEXT I 
Y1Lsyvyil/Nn 
XLSX1/N 
Total sszY2-NeVieV¥l ! 
GOSUB Regss ! 
Resss=Totalss-Reqss ! 
Regms=Regss/“Dfreg 
Resms=Resss/Dfres 
F=Regms’Resms 


Solve the system of equations 


Total Sum of Squares 
Regression Sum of Squares 
Residual Sum of Squares 


SUBEXIT 


Regss: 


Regss=0 
FOR I=1 TO N 
J=20 
FOR L=0 TO Degree 
JeJeXC lL >“LeCoeffs (ld 
NEXT L 
Regss=Regss*(J-Y1)“2 
NEXT I 
RETURN 
SUBEXIT 


DEF FNG(M)sX¢ IM 
SUBEND : 
SUB Plot _cubic(Q,A,B, Coeffs (#4), A4C#), YC #),N, Degree, Select) 


IF Whichdevice=! THEN GRAPHICS 
DATA -2,-1,1,2 
READ Um, Dm, Md,Mu 
DATA .39794, .69897,.87506 
READ Log2,Llog5,Log? 
XminsFNMindX¢#), ND 
XmaxsPNMaxCXC#), ND 
Lx2LGT(Xmax-Xmind 
YminzFNMincYC#),ND 
Ymax=FNMax¢CYC#),N) 
Ly=LGT(Ymax-Ymin) 
Xfudge=.20#(Xmax-Xmind 
Yfudge=.20#¢Ymax-Ymin) 


13030 Setup: IF Plot $s3"P" THEN P9872 

13066 Cre: PLOTTER IS "GRAPHICS" 

139070 GOTO 1383892 

18@80 P9872: PLOTTER IS Pselect,Hpib, "9872AR" 
13890 GCLEAR 

13180 GRAPHICS 

131190 LOCATE 23,123,989, 188 

13120 FRAME 

1313@ LINE TYPE 1 

13140 SCALE Xmin-Xfudge, “max, *min=Yfudge, Ymax 
13150 Testxtic=FRACTCLxd+¢(Lx<@>d 

15162 .- Testytic2FRACT (Ly) +<Ly<@) 
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15170 RAL icSlOrcCINT Ch xrelLo#C lel. Sec CTaestxticr>lLog2)>) AND (Testxtic<lLogS))+4+ 
(<CTestxtic>=LogS>) AND (Testxtic<=Log7))+6.5*#(Testxtic>lLog?)>? 


15180 YeicSlG*cCINT Ly dL *Ci+1. SeCCTestyricrlLog2> AND (Testytic<logS)>+4# 
CCTestyticrslLogs) AND (Testytic<slog?)d+5.5*(Testytic rlog?7>) 

15199 CALL Laxes_cubic(Xtic, Ytic,Xmin, Ymin,1,1,2,%min-Xfudge, max, Ymin-= 
Yfudge, Ymax> 

15200 LORG 5 

15210 FOR Is1 TO N 

15220 MOVE XCID,YCID 

152390 LABEL USING 135240; "*" 

15249 IMAGE A 

15250 NEXT 1 

15260 LORG 1 

15278 PENUP 

15289 EXIT GRAPHICS 

15290 SUBEXIT 

18300 Polynomial: SETUU | CHECK THE EARLIER PROGRAM FOR THESE PARAMETEP VALUES 
15316 CLIP @,123,0,199 

15320 LINE TYPE 1 

13339 LINE TYPE 6 

13348 FOR I=Xmin TO Xmax+Xfudge STEP (Xmax+Xfudge-Xmind “720 
15350 J=0 

15360 FOR L=@ TO Degree 

13370 JzS+l-LeCoeffs tl) 

15388 NEXT L 

135398 PLOT I,J,Md ! OR DRAW 772°? 

15400 NEXT I 

15410 PENUP 

15426 EXIT GRAPHICS 

15430 SUBEXIT 

15440 DEF FNMax¢X¢#>,N)D 

135450 X=XCL) 

15460 FOR I=2 TO N 

135479 XSMAXCK, XID 

15486 NEXT {f 


15490 RETURN X 
15500 DEF FNMin<xX¢*#),ND 


15510 K=XC1) 

15520 FOR I22 TO N 
15530 K=EMINCX,XC1>D 
15540 NEXT I 


155350 RETURN X 
135568 SUB Header 
15370 OPTION BASE @ 
15589 ! 
15598 COM Alpha, Tal pha, Rho, Trho,Rho_initial, Trhoi,Rhol, Trhol, Rhoe, Trhoe 
15606 COM F,23,24,Norm, Thetai,Tdelta 
15610 COM Dates,Plot$,Familys,Chart$, Mains, Mainl$,Flag$, /_hard$ 
15620 | 
13636 COM Stuf f$,Redraus, Digitizes,Ray traces 
135649 COM INTEGER [,J,Y@_loop,Nray,Nray_ chart,Nray_family,Nray_ stuff 
1356359 COM INTEGER Nray_ trace,Nray_density,Add ray,Nc,Ns,Nbeta,Fliag 
135669 t : 
15670 COM INTEGER Line_count,Line_max,N_increment,Hit_total,Pselect,Hpib 
135680 COM INTEGER Family, Surf_no 
15699 COM REAL Theta critical, Tol,N1,N2,N3, Delta ray, YO, Ya, Yb,Aperture 
15700 ! 
15710 COM Y_bullet,Smax_family,Percent_image 
135720 COM X16#),Y1C#), X06 #9, K2649, 72068), X2maxC#), Y2max( *) 
15738 COM Y3C#),Y4C#), Bet ac#), S2¢0#%, Xsurfmax(#), Ysurfmax #) 
15740 ! 
1357358 COM QaC#),SmaxC#), Al phacc#), Rho2(#), Hit ¢#) 
! 


15766 ! 

13770 INTEGER Z2,2tabl,Ztab2,2tab3,Char_min, Char_max 

15780 ! 

15790 - ! THIS ROUTINE DRAWS THE HEADER FOR PRINTED OUTPIUT FOR THE FOLOWING 
15800 ! ROUTINES: 
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15819 t 1> CHART 
15820 ! 2> FAMILY 
15838 ! 3> STUFF 
1is840 4) RAY_TRACE 
15859 ! 
15860 ! 
15870 ! 
15888 ! THIS ROUTINE DRAWS AND PRINTS THE HEADERS FOR TABULAR DATA. 
158990 ! 
15909 DEG 
13910 Ztabi=35 ! THE ITAB’S CAN BE USED TO POSITION TABLE HEADINGS 
15920 Z2tab2=27 ! FOR THE PRINTED OUTPUT 
15930 Ztab3=13 
15948 IF (Mains2"Y¥") OR (Mains="y") THEN Main 
159350 IF (Maini$="Y¥") OR (Mainl#="y") THEN Maint 
15969 IF CRay_traces="¥") OR CRay_traces="y") THEN Ray _trace 
159790 IF €Charts2"Y¥") OR (CCharts="v") THEN Chart 
159890 IF CFamilys2"¥") OR (FPamily$="y")> THEN Family 
15990 IF CStuffS="V¥") OR CStuf Ff se"y") THEN Family 
16090 Main: PRINT PAGE;SLINC2) 
16010 GOSUB Char_long 
16929 PRINT LINC1LOSTABCZtab2>3;"INITIAL PARAMETER VALUES"SLINC1) 
16039 GOSUB Char_tong 
16840 PRINT LINC2) 
16@5@ SUBEXIT - 
16069 Maint: IF Line_count >Line_max THEN GOSUB Header_eznd_long 
16072 PRINT PAGE;LINC2) 
16888 Line_count=9 
16890 GOSUB Char_tong 
16190 PRINT LINC1); TABCZtab3), "RAY QA Smax Alpha2 
RHO 2",LINC1) 
16119 DISP TABC2Ztab3), "RAY QA Smax Alpha2 
RHO 2" 
16120 GOSUB Char_long 
16139 PRINT LINC2) 
16142 SUBEXIT 
161598 Chart: IF Line_count >Line_max THEN GOSUB Header_end_long 
16169 PRINT PRGE;LINC2) 
16178 Line_count =0 
16180 GOSUB Char_tlong : 
16198 PRINT LINC1), "RAY BETA THETAI CRAY) NORMAL RHO 2 
$ ALPHA 2";LINC1> 
16209 DISP “RAY BETA THETAI CRAY) NORMAL RHO 2 
S ALPHA 2" 
16210 GOSUB Char_ltong 
16229 PRINT LINC2) 
16232 SUBEXIT 
16240 Family: IF Line count >Line_max THEN GOSUB Header_end_long 
16258 ' PRINT PAGE;LINC 2) 
16260 Line_count=@- 
162790 GOSUB Char_ltong 
16280 PRINT LINC1); “ Begin Next Xsurf Ysurf $ 
Alpha2 RHO 2" 
16290 PRINT * Ray Ray (next) * (next> (next) 
Cnext> Cnexto“SLINCLd 
16389 DISP “ Begin Next Xsurf Ysurf $ 
Al pna2 RHO 2" : 
16319 GOSUB Char_long 
16320 PRINT LINC2) 
16330 SUBEXIT 
16349 Ray trace: IF Line_count>Line_max THEN GOSUB Header_end_long 
163359 PRINT PAGE;LIN<2) 
163690 Line _count=@ 
16370 GOSUB Char_tong 
16389 PRINT LINC1),"RAY Xd YO x1 ial x2 Y2 
Xe Ye x4 Y4 "SLINC1)D 
163990 DISP "RAY XO YO x1 Yt x2 Y2 
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inc x4 it = 


16400 GOSUB Char_tong 

16410 PRINT LINC2) 

16420 SUBEXIT 

16430 Char_long: FOR 2=0 TO 79 

16448 IF 2=79 THEN PRINT CHRS$( 228) 

16450 IF 2=79 THEN 164706 

16468 PRINT CHRS$(228)3 

164706 NEXT 2 

16488 RETURN 

16498 Char_short: Char_min=12 !' THIS ROUTINE CAN BE USED FOR SMALL TABLES 
16500 Char_max=64 

16519 FOR 2=Char_min TO Char_max 

16520 IF Z2=Char_min THEN PRINT TABCChar_mind; 

1635390 IF 2=Char_max THEN PRINT CHRSC223) 

16548 IF 2=Char_max THEN 16560 

16550 PRINT CHRS$C228)35 

16560 NEXT 2 

165706 RETURN 

16580 Header_end_long: PRINT LIN¢2) 

163590 GOSUB Char_long 

16690 RETURN 

16610 Header_end_shor: PRINT LINC2) 

16620 GOSUB Char_short 

16638 RETURN 

16640 SUBEND 

16650 SUB Header_end 

16660 ! 

16670 COM Alpha, Talpha,Rho, Trho,Rho_initial, Trhoi,Rhol, Trhol,Rho2, Trho2 
16680 COM F,23,24,Norm, Thetai,Tdelta 

16690 COM Dates,Plot$,Fami lys,Chart$,Mains,Maini$,Flag$,Y_hards 

16700 ! 

16710 INTEGER 2,Char_min,Char_max 

16720 ! THIS ROUTINE DRAWS THE FINAL BOTTOM LINE OF A TABLE. SUB HEADEF ABOVE 
16730 ! DRAWS THE BOTTOM LINES ON PAGES OF TABLES WHILE OUTPUT IS STILL BEING 
16740 ! CALCULATED 

167350 ! 

16768 PRINT LINC2) 

16770 FOR 228 TO 79 

16780 IF 2279 THEN PRINT CHRS$C( 228) 

16790 IF 2=79 THEN 16810 

16800 PRINT CHR$(228); 

16810 NEXT 2 

16820 SUBEXIT 

16830 Short: Char_min=20 ! THIS ROUTINE CAN BE USED TO FINISH A SMALL TABLE 
16840 Char_max=60 ' TO USE, INSERT AN IF STATEMENT AFTER THE PRINT LIN 
C2) ABOVE 

16850 FOR 2=Char_min TO Char_max 

16860 IF 2=Char_min THEN PRINT TABCChar_min)d; 

16870 IF 22Char_max THEN PRINT CHRS$C228) 

16880 IF 2=Char_max THEN 16900 

16890 PRINT CHRS$(228); 

16980 NEXT 2 

16910 SUBEXIT 

16920 SUB Stuff 

16930 OPTION BASE @ 

16948 ! 

16930 COM Alpha, Talpha, Rho, Trho,Rho_initial, Trhoi,Rhol, Trhol,Rho2, Trho2 
16960 COM F,23,24,Norm, Thetai,Tdelta 

16970 COM Date$,Plot$,Family$,Chart $,Mains,Mainl$,Flaas,Y hard$ 

16980 ! 

169906 COM Stuf f$,Redraw$, Digitize$,Ray traces 

17000 COM INTEGER I,J,Y@_loop.Nray,Nray_chart,Nray family,Nray stuff 
17810 COM INTEGER Nray_trace,Nray_ density, Add _ray,Nc,Ns,Nbeta,Fl ag 
17020 ! 

17830 COM INTEGER Line_count,Line_max,N_increment,Hit_total,Pselect,Hpib 
17048 COM INTEGER Family, Surf_no 


LD 





17050 
17060 
17872 
17080 
17090 
17100 
17110 
17129 
17130 
17140 
17150 
17162 
17170 
17180 
17190 
17200 
17210 
17220 
17230 
17240 
17250 
17260 
17270 
17280 
17290 
17300 
17319 
17320 
17330 
FAULT 
17340 
17350 
17362 
17370 
17380 
17392 
17400 
17410 
17420 
17430 
17449 
17459 
17460 
17470 
17480 
17499 
17500 
17510 
17520 
17530 
17540 
17550 
17560 
17570 
17580 
17590 
1760 
17610 
17620 
17630 
17640 
17650 

7660 
17672 
17680 
17690 
17700 


COM 
! 
COM 
COM 
CoM 
1 


COM 
! 


! 
' 
' 
! 
! 
! 
DEG 


THIS ROUTINE COMPUTES 250 
THESE POINTS RARE THEN USED IN 
NUMBER OF RAYS THROUGH THE DESIGN SURFACE 


REAL Theta critical, Tol,N1,N2,N3,Delta_ ray, YO, Ya, Yb,Aperture 
Y_bullet,Smax_family,Percent_image 

RICH) py 1 CF) HEC HD, NSC 8), Y204)9, X2max 4), Y2max ls) 

Y3C#),74C#), Betac#), S264), Xsurfmaxc#), Ysurtmax¢c#) 


Qac*#), SmaxC#), Al pna2¢*#),RhHo2¢6*), Hit c#) 


POINTS OF THE SURFACE CHOSEN IN FAMILY 
OTHER ROUTINES TO TRACE AN AREITRARY 


IF Y2max(Familyd=Y1¢F amily) THEN YbsY1¢Fami ly) 
IF Y2max(Familyd2=Y1¢ Family) THEN Initialize 


| 
Yb: 


Bsm2=Y2max‘Family-X2max¢Familyd)*Trhol  ! 
X1=Bsm/(Talpha-Trhol) ! 
YosYil2kileTalpha  ! 
AperturezYb-Ya_ |! 


Initialize: 


COMPUTE THE WPPER LIMIT 
OF THE APERTURE. THIS IS RAN ESTIMATE FOR 
THE APERTURE MAY CHANGE IN THE FINAL DESIGN 

THE ESTIMATE IS REQUIRED TO CALCULATE DELY FELOW 
IF (Redraws="Y") OR (RedrauwS="y") THEN Redraw! INDICATES 
YazY1¢Family) 


Aperture=Yb-Ya 


YO_min2zYa*(Talpha-Trhoid/’Taipha ! REDRAW TO ANOTHER SCALE 
YO_max2Yb*#(Talpha-Trhoid’Talpha 

Nray_stuff=250 

INPUT “HOW MANY RAYS DO YOU WANT TO DRAW THE SURFACE WITH ¢ DE 


z 250 MAX) ?“,Nray stuff 


Start: 


Next i 


s 
° 


Stuff 
FOR I 


Flag3@ ! 


x=Q 
Rho 
Trh 
Ys 
Ns= 
Yi¢ 
C 
x1¢ 
NEXT 
BEEP 
Y=" 
INPU 
IF 
CA 
BEEP 
YS=u" 
INPU 
IF 
Y$s" 
INPU 
IF 
CA 


IF Ya=@ THEN Add _ray=o 

IF Ya<to@ THEN Add _ray=l 
Anray=Nray stuff { 
Dely=(YO_max-Y@_mind/Xnray 
YO_minz7¥O min-Dely 

IF Yaz@ THEN YO_min2YO_min+Dely 
Nray_stuff=Nray stuff+Add ray 
Flag2zQ 
Ns2@ 
X2°N$)=8 
Y2(Ns)28 
Bet a(Ns)=0 
$a2"y" 
=1 TO Nray_stuff ' 


AVOIDS MIXED MODE ARITHMETIC 


COMPUTE THE COORDINATES OF THE INTERCEPT 
OF THE INCIDENT RAY AND THE FIRST SURFACE 


sRho_initial 
o2zTANCRho) 
8 _mintDely*l 
Ns+1i 
Ns>2Y 
ALL Xipos¢x, Y) 
Ns> 3X 

I 


N* 
T COPY 


THEN 


"DO you 
CYSa"¥") 
LL Chart 


WANT A HARD 
OR (YS2"y") 


OF THE COMPUTED DATA ? Y/N", ‘*S 
GOSUB Yhard 


N“ 
T WANT A HARD 


OR (Y¥$="y") 


COPY 
THEN 


eer 
CYS=2"¥"5 
N“ 
T 


OF THE CHART ? Y/N",YS 
GOSUB Dump_it 


WANT A HARD 
OR (Y$a"y") 


COPY 
THEN 


“po you 
CY¥ss"Y") 
LL Family 


OF THE COMPUTED DATA ? Y/N",YS 
GOSUB Yhard 


6 





17718 
17720 
17738 
17748 


17750. 


17768 
17772 
17788 
17792 
17880 
17810 
17828 
17839 
17840 
17858 
17868 
17878 
17880 
17890 
17980 
17918 
17920 
17939 
17948 
17958 
17968 
17978 
17988 
17990 
18800 
1881 
18820 
18830 
18840 
18850 
18860 
13878 
18080 
18090 
18108 
18110 
18120 
18138 
18140 
18159 
18160 
18172 
18180 
18190 
182008 
18210 
18228 
198230 
18248 
18250 
18260 
18270 
18230 
18290 
18300 
18310 
18320 
18330 
18348 
18350 
ULLET 
18360 


Stuf fs=e"N" 
SUBEXIT 
Redraw: Stuffs="y" 
CALL Plot 
LINE TYPE 8 
MOVE 98,9 
DRAW Y_ bullet’Talpha,Y_dullet 
DRAW 100,Y_ bullet 
MOVE X2¢1>,Y2¢1) 
LINE TYPE 1 
FOR [22 TO Nray_stuff 
DRAW X2¢1),Y2¢T) 
NEXT I 
MOVE X2¢T-1),Y2¢I-1) 
LORG 2 
LABEL USING 17370;Family 
IMAGE K 
Redraw$="N"“ 
Flagz3 
CALL Graph 
SUBEXIT 
Dump_it: PRINTER IS 6 
PRINT CHRSC27>&"%100T" 
DUMP GRAPHICS 
PRINT CHRS$C27>&"&136T" 
PRINTER IS 16 
RETURN 
Yhard: Flags3"1" 
PRINTER IS @ 
RETURN 
SUBEXIT 
SUB Binary_search(x, Y) 


OPTION BASE @ 
i 
COM Alpha, Talpha, Rho, Trho,Rho_initial,Trhoi,Rhol, Trhol,Rho2d, Trnoe2 
COM F,23,24,Norm, Thet ai, Tdelta 
COM Dates, Plots, Familys, Chart $, Main$,Maini$, Flags, Y_hards 
! 
COM Stuff$,Redrau$, Digitizes,Ray traces 
COM INTEGER I[,J,Y2_loop,Nray,Nray “chart,Nray family,Nray stuff 
COM INTEGER Nray_trace,Nray_density,Add ray,Nc,Ns,Nbeta,Flag 
i 
COM INTEGER Line_count,Line_max,N_increment,Hit_total,Pselect,Hpib 
COM INTEGER Family, Surf_no 
COM REAL Theta critical, Tol,Nt,N2,N3, Delta ray, YO, Ya, Yb,Aperture 
! 
COM Y_bullet,Smax_family,Percent_image 
COM X16#>,Y164),XeC¥#>, X20#>,Y20#), XK2max(#), Y2max (#> 
COM Y3¢#),74¢#), BetaC#), S204), Xsurfmax t#), Ysurfmax( *) 
! 
COM Qac#>,Smax C#), Al pha2(#),Rho26#), Hit (#) 
i 
! 
i THIS ROUTINE FINDS THE INTERCEPT OF THE RAY WITH THE FOLLOWING: 
! 
! 1> FIRST SURFACE 
! 2) SECOND SURFACE 
! 3> FIRST IMAGE PLANE 
! 4) SECOND IMAGE PLANE 
i 
! 

DEG 

DEF FNACXK, Y>2X<Y/Trho2 


DEF FNAI CK, Y=X-Y¥7Talpha 
DEF FNXn¢(AD2A-Y_bullet’Trhol ! FINDS THE INTERCEPT OF THE RAY AND Y2~-Y_B 


Trho22TAN(Rho2> | RHO2 MUST BE DECLARED ELSEWHERE 


i] 





18370 
18380 
18398 
18400 
18410 
18420 
18430 
18449 
18450 
18469 
18470 
18489 
18490 
185099 
18510 
18529 
18530 
18549 
185590 
18569 
18570 
13580 
18590 
18690 
18610 
18620 
18630 
18649 
18650 
18660 
18678 
18680 
18699 
187080 
18719 
18720 
18738 
18740 
187598 
18760 
18770 
18780 
18790 
18800 
18819 
18820 
18830 
18840 
18859 
18860 
18879 
18880 
188990 
189989 
18910 
189298 
18930 
189498 
18950 
18968 
18970 
18989 


IF Surf no=4 THEN Four 


Xo (YB_loop)sFNACK, Y) ' FIND THE X-INTERCEPT QF RHO2 
Three: Dy2(23-xX+*Trho2 
YeV¥+Dy 
X=23 
SUBEXIT 
Four: Dy2t(24-xX)*Trho2 
Y2Y+Dy 
X224 
SUBEXIT 
SUB Graph 
OPTION BASE 9 
‘ 
COM Alpha, Talpha,Rho, Trho,Rho_initial,  Trhoi,Rhol, Trhot,Rho2d, Trhs2 
COM F,23,24,NHorm, Thetai,Tdelta 
COM Dates,Plots,Fami ly$, Charts, Mains, Mainil$,Flags,Y_hards 
i 
COM Stuff$,Redrau$, Digitizes,Ray_traces 
COM INTEGER [,J,YO_loop,Nray,Nray chart,Nray family,Nray stuff 
COM INTEGER Nray trace,Nray density,Add ray,Nc.Ns,Nbeta,Flag 
! 
COM INTEGER Line_count,Line_max,N_ increment, Hit_total,Pselect,Hpib 
COM INTEGER Family,Surf_no 
COM REAL Theta critical, Tol,N!,N2,N3, Delta ray, Y6,Ya,Yb,Aperture 
t 
COM Y_bullet,Smax_family,Percent_image 
COM X1¢C#), YLC#), XC CHD, KOCH), Y20%), X2maxC#), Y2mMax*) 
COM Y3¢#),Y4C#), BetaC#), S204), Xsurfmaxc#), Ysurfmaxcs#) 
! 
COM Qa¢#), Smax(#), Al pha2¢*),Rho2¢*#), Hit ¢#*) 
| 
t THIS ROUTINE DRAWS THE GLM FOR STUFF AND RAY_TRACE SUBROUTINES 
' AND DIGITIZES THE IMAGE PLANE POSITION ¢23)> 
1 
1 
DEG 
IF Flag23 THEN Waitl 
IF CDigitizes="Y") OR CDigitizes="y")> THEN Digit 
Draw axes: Cee Plot 


First_ 


X2pos: 


x2neg: 


surf: FIXED 2 
ETNE TYPE 8 
MOVE 9,9 
AsY_ Bbullet’Talpha 
DRAW X,Y_bullet 
DRAW 100,Y_bullet 
MOVE 9,9 
DRAW X,-Y_bullet 
DRAW 190,-Y_bullet 
MOVE X2¢1),Y2¢1) 
FOR 122 TO Nray_stuff 
DRAW X2¢19,Y2¢I) 
NEXT I 
MOVE X2¢19,-Y2C1) 
FOR I22 TO Nray_stuff 
DRAW X2¢19,-Y2¢T) 
NEXT I 
EXIT GRAPHICS 
Y$=s"N"* 
INPUT 
IF ¢yss"y") OR CY$=E"y"*) THEN GOSUB Dump_it 
GRAPHICS 
IF (Redraw$s="Y¥") OR CRedrawS="y") THEN Second_image 


18998 First_image: LINE TYPE 5 


19890 
19819 


MOVE 23,¥_bullet 
DRAW 23,~-Y_bullet 


19020 Second_image: LINE TYPE 6 


158 


"DO YOU WANT A HARD COPY OF THE PLOT WITHOUT RAYS ? /N",YS 





19932 
19849 
19850 
19069 
19870 
19989 
19399 
19199 
19119 
19120 
19138 
19142 
19159 
19162 
19178 
19138 
19198 
19290 
19219 
19220 
19239 
19249 
19258 
19269 
19270 
19280 
19299 
19308 
19319 
19329 
19330 
19349 


19359 - 


19369 
19379 
19389 
19398 
19400 
19418 
19420 
19439 
19449 
19459 
19469 
19472 
19488 
19498 
19590 
19519 
19529 
19538 
19542 
19558 
19569 
19572 
19589 
19598 
19600 
19619 
19629 
196390 
19642 
19658 
19668 
19672 
19689 
19692 


MOVE 24,Y_ bullet 
DRAW 24,-Y_bullet 
REM DRAW THE RAYS 
IF (Ray traces="Y"> OR (Ray trace$="y") THEN Nray_ graph=Nray_trace 
IF (Stuff se"""> OR CStuffs="y") THEN Nray_graph=Nray_stuff 
Eitemt - LINE TYPE 1 
CLIP 0,100,-Y_bullet,Y_bullet 
FOR I=1 TO Nray_graph 
MOVE 9@,Y1¢1) 
DRAW X1¢1>0,Y1¢19 
NEXT I 
FOR I=1 TO Nray_9graph 
MOVE X1¢19,Y1¢1) 
DRAW X2¢1>,Y2¢1) 
NEXT I 
First_image_p: FOR I=1 TO Nray_ graph 
MOVE X2¢1),Y2¢I) 
DRAW 23,Y3¢1> 
NEXT I 
WAIT 2000 
EXIT GRAPHICS 
BEEP 
Y¥$u"N" 
INPUT "DO YOU WANT TO PLOT TO THE SECOND INAGE PLANE ? Y/N",Y7S 
GRAPHICS 
IF (Y¥S$="N") OR CYS=2"n") THEN Waitl 
Second_tmage_p: FOR I=1 TO Nray_graph 
MOVE 23,Y3¢1) 
DRAW 24,Y4¢1) 
NEXT 1 
THIS ROUTINE PRESENTS THE PLOT TO THE OPERATOR 
IF A NOTE TO THE OPERATOR I[S DESIFED, ENTER SETGI,LORG 2 
BEEP PeNOVewen =, ColZey2.0,CHEEL “PRESS CONT”,CSIZE 1574.54, 
PRUSE ! SETUU AFTER THE SECOND BEEP 
EXIT GRAPHICS 
IF (Flag=9> OR ‘(Filagz3> 
SUBEXIT 
Digit: GRAPHICS ! 
POINTER F,Q ! 
DIGITIZE 23,7 ! 
EINE Sinee 5 
MOVE 23,Y_bullet 
DRAW 23,-Y_bullet 
SETGU 
LDIR @ 
SiNeemrre 1 
LORG § 
CSIZE 2.5 
Centerx272.5 i 
MOVE 1.5#Centerx,2 
LABEL USING 19540; 23 
IMAGE “Image Plane : 
SETUU 
CSIZE 1574.54 
WAIT 25909 
EXIT GRAPHICS 
SUBEXIT 
Dump_it: PRINTER [5S @ 
PRINT CHRS$(27)0&"%100T" 
DUMP GRAPHICS 
PRINT CHRS$(270&"&136T" 
PRINTER [S 16 
RETURN 
SUBEND 
SUB Xineg¢X%, Y> 
- OPTION BASE @ 
' 


Second _: 


Decision: 


BEEP .'|} 
WAIT 250 ! 


Waittl: 


THEN EXIT GRAPHICS 


THIS ROUTINE CHANGES THE ANALOG POSITION 
OF THE IMAGE PLANE ON THE GRAPHICS DEVICE 
TO "DIGITAL DATA FOR PROCESSING 


CHANGE IN LAXES AS WELL 


“,vl2DD,- inch” 


L59 





197939 
19719 
19720 
19730 
19749 
19759 
19769 
19770 
19788 
19799 
19899 
19819 
19820 
19839 
19849 
19859 
19869 
19878 
19889 
19899 
19999 
19919 
19920 
19930 
19949 
19959 
19969 
19978 
19989 
19998 
23999 
29010 
20020 
29839 
20040 
29050 
29060 
29070 
23080 
20099 
20100 
20110 
20120 
29139 
23146 
20150 
20160 
20170 
20180 
29199 
29200 
20210 
20229 
29230 
29240 
202598 
20260 
29279 
20280 
20299 
29399 
29319 
29320 
29330 
29349 
20359 
29369 


COM Alpha, Talpha, Rho, Trho,Rho_initial, Trhoi,Rhol, Trhol, Rho2,F, 23,24 
i 
DEG 
Alphanz-1*Al pha 
Talphan=TANCAl phan) 
DEF FNY1LCY)sY*Talphan’(Talphan-Trho>D ! FINDS THE Y-VALUE OF THE INTERCEPT 
| OF THE RAY AND THE FIRST SURFACE 
DEF FNX1L¢CY)=¥/Talphan ! FINDS THE X-VALUE OF THE INTERCEPT OF THE RAY 
! AND THE FIRST SURFACE 
YeFNYLCY) 

Woops: X=FNX1CY) 
SUBEND 
SUB Density 

OPTION BASE @ 2 

t 

Com Initial 
com 
COM 
1 


Alpha, Talpha, Rho, Trho, Rho_ 
F,23,24,Norm, Thetai,Tdelta 
Dates,Plows,Familys, Chart $, Mains, Mainls,Flags, ¢_hards 


sTrhoi,Rhol, Trhot,Rho2, Trno2 


CoM 
Cor 
COM 
{ 

COM 
CoM 
COM 
! 


Stuf fs,Redraws, Digitizes,Ray traces 
INTEGER I,J,¥0_loop,Nray,Nray chart,Nray_ family,Nray_ stuff 
INTEGER Nray_trace,Nray density,Add ray,tHc,Ns,Nbdeta, Flag 


INTEGER Line_count,Line_max,N_ 
INTEGER Family, Surf_ no 
REAL Theta critical, ,Tol,Nt, N2,N3, Delta ray, 70, Ya, Yb,Aperture 


Increment, Hit _total,Pselect.,Hpib 


COM 
CoM 
COM 


Y_bullet,Smax_ family,Percent_image 

¥1<#), YiC#), Xec*#), M2C#), V2"), X2maxC#), Y2max C#) 
Y3°C#),Y4C4), Betac*), $2¢#), Mburtmax(s), YsUebnaxc®) 
COM 
' 
INTEGER Inc, K,L,M,Lines 

! 

DEG 

! THIS ROUTINE COMPUTES THE RAY DENSITY IN ONE DIMENSION. 

! ASSUMPTIONS: 

l 1> THE POINT OF MAXIMUM RAY DENSITY HAS BEEN FOUND VIA A 
! DIGITIZE STATEMENT. 
i 

i 


QalC#), Smax(#), Al pha2c*),Rho2(#), Hit ced 


2> THE VALUES OF Y3 HAVE NOT BEEN CHANGED TO REFLECT THE 
NEW VALUE OF 23 
\ 
PRINTER IS 16 
Nray_density=Nray stuff 
Re_draw: FOR I=! TO Nray_density ! 
AzXe¢ cI) 
XaxX2¢1) 
Y2Y2C19 
Rno2zRho2 <I) 
Trho22TANCRho2) 
Delt ay=#(Z23-xX)#Trho2 
Y¥327+Deltay 
Y3CI)sY3 
Delt ay2( 24-23) 4Trho2 
Y¥4C IT 2Y¥3¢C1I>+Deltay 
NEXT I 
MAT Hit=Z2ERC 2091) ' ZERO THE ARRAY 
Ine 29 ' FIND THE No. OF HITS IN THE INTERVAL 
Ylast#-Y_bullet Pt =VeSUCEET  -Y SUELETSDELTAS J 
Deltaz=yY _bullet/N_ increment 
Ynext=Ylast+Delta/‘2 
Hit CIne) 39 
FOR [21 TO Nray_density 
IF (€Y¥3¢I>>sYlast> AND CY3CI><Y¥next>d 
- NEXT [I 
Hit middle: ! 


RECOMPUTE THE VALUE OF Y3 


Same: 


Next 13 
Hit zero: 


THEN HitcCIncdsHitcIned+l 


FIND THE No. OF HITS IN THE INTERVAL 
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20370 
20380 
28390 
23400 
204198 
28420 
20438 
29440 
c+ 

28450 
29460 
29470 
2894890 
20498 
20500 
20510 
28520 
28538 
2395490 
205528 
29560 
28570 
20588 
20590 
29608 
20618 
20620 
296530 
20640 
20658 
28668 
28678 
28688 
20690 
207900 
29710 
297290 
29738 
20748 
297598 
20768 
20778 
20780 
20790 
298300 
20810 
29820 
298380 
29840 
29858 
20860 
208708 
2988a 
29890 
290920 
20918 
29920 
20938 
20940 
209590 
20968 
20978 
23980 
20990 
212800 


21010 - 


21020 


1 €-¥_bullet+DELTA2, Y_bullet-DELTA2) 
FOR L=1 TO 2*#N_increment-1 
IncaInc+l 
Hit¢Ined=8 
Ylast=Ynext 
Ynext=Ylast+Delta 
FOR 131 TO Nray_density 
IF CY3CT)>sY¥last>? AND CY3C1I><Y¥next> THEN Hit CIncdszkHitcIn 


NEXT I 
NEAT L 
Hit_last: Inc=2*N_increment ! FIND THE No. OF KITS IN THE LAST INTERVAL 
Hit¢Ine>=0 1 6CY_bullet-DELTAY2, Y_ bullet] 


Ylast#Y_bullet-Delta/v2 
Ynext=Y¥_ bullet 
FOR I=1 TQ Nray_density 
IF C€Y3¢1)>sY¥last> AND (Y¥3¢C1><=¥next> THEN Hit CIncdezHitcIned+} 


NEXT I 
Normalize: Hit_total=0 1 NORMALIZE THE No. OF HITS ON THE 
FOR 1=@ TO 2*N_increment PeIWAGE PLANE ©2s> TO THE TOTRE 
Hit _total=Hit total+tHit¢l> ! No. OF HITS 
NEXT I 


IF Hit _total=4 THEN None 
FOR 128 TO 2*N_ increment 
Hit ClosHit¢lo7Hit total 


NEXT I 

None: Pet=Hit_total’Nray density 1! % OF RAYS THAT ARRIVE AT THE 
Percent image=Pct #100 ! IMAGE PLANE 

Graph: CALL Plot 1 PLOT AND LABEL THE RXES 

IF Hit total=@ THEN Label_ 

First bar: Xlast3-Y_bullet : 1 DRAW THE HISTOGRAM 
Anext2Xlast+Deltav2 ! INTERVAL ([C-Y_bullet, -Y_bullet+DELTA2) 
Inc 30 


IF Hit¢Ine>=8 THEN Middle_bars 
CLIP Xlast,xnext,G@,Hit (Inc) 


FRAME 
GOSUB Delt 
Middle bars: FOR I=1 TO 2*N_increment-1 ! INTERVAL 
InceInc+l b C-Y¥_bullet+DELTA’2, Y_bullet-DELTA2>) 


Xlast=Xnext 
Anext=xXlast+Delta 

IF Hit¢Inc)=@ THEN Next_i_m 
CLIP Xlast,xXnext,@,Hit¢Ine>D 


FRAME 
GOSUB Delt 
Next _i_m: NEXT I 
Last bar: Inc=2*N_increment ! INTERVAL CY_bullet-DELTAY2, Y_bullet] 


Alast=V¥_ bullet-Delta’2 
AnextsY_ bullet 
IF Hit¢Inc>)32@ THEN Label_ 
CLIP Xlast,Xnext,9,Hit¢Ine> 
FRAME 
GOSUB Delt 
Label_: Digitize$="N” 
Flage3 
CALL Graph 
SUBEXIT 
Delt: Lines=18 
Deltz(Xnext-xXlasto~“Lines 
X=Xlast-Delt 
FOR J=1 TO Lines 
xX2X+Delt 
MOVE X,@0 
DRAW X,Hit¢Ine> 
NEXT J 
RETURN 
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210390 
21648 
21050 
21068 
21978 
21080 
21699 
21199 
21119 
211290 
21130 
21140 
21150 
21169 
21172 
21130 
21199 
21200 
212190 
21220 
21236 
21248 
21250 
21260 
21270 


SUBEND 
SUB Min¢€XmC4#),X, INTEGER MD 
OPTION BASE @ 


DIM Xm¢M> 
rie 


| THIS ROUTINE FINDS THE MINIMUM ELEMENT IN A ONE DIMENSIONAL ARRAY 


| 


x=XmCQ> 
FOR I=1 TO M 
X=SMin¢X, Xml) 


NEXT I 


SUBEND 
SUB Max¢Xm¢(#),%, INTEGER M) 
OPTION BASE @ 

' 

DIM XmCM) 
| 


{ THIS ROUTINE FINDS THE MAXIMUM ELEMENT IN 


X=Xm (8) 
FOR I=1 TO M 
KEMAX CK, XmOT)) 


NEXT I 


SUBEND 


ew 


A ONE DIMENSIOHAL ARRAY 





APPENDIX B 


TRACE PROGRAM DESCRIPTION AND PROGRAM LISTING 


TRACE was the first program written for this thesis. 
TRACE was written for the purpose of automating the task 
of drawing the ray diagram produced when tracing rays 
through a conical lens with various second surfaces. The 
program consists of a set of subroutines called from a 
control program which are designed to perform a specific 
task(s). A detailed description of each subroutine will 
not be given because TRACE has extensive documentation 
included within the program. However, an abbreviated 
discussion of the geometric relationships at the first 
and second surfaces and the bisection routine in subroutine 
BINARY SEARCH follows. 

TRACE occupies approximately 145 Kbytes of memory which 
1s approximately 77% of available memory (ll). A listing 
of TRACE is at the end of this appendix. 

TRACE was designed to calculate the trajectory of up to 
250 rays incident upon the first surface in the upper half- 
plane as illustrated in figure B-l. All of the parameters 
shown in figure B-l are peeided by the operator except 24, 
the location of the permanent Image plane, which is set for 
Z4 = 50 inches. All of the parameter values provided by the 
operator have default values declared either in subroutine 
DIALOGUE, line number 13810 or the MAIN routine, line number 


0). 
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TRACE calculates the complete trajectory of each ray 
before proceeding to the next ray. Each surface is assigned 
a number with the vertical axis, y, defined as the zeroth 
surface. All incident rays originate on the y-axis and are 
assumed to be parallel with the source at infinity. The 
first surface shown in figure B-2 encountered is the exterior 
of the conical spike which, in two dimensions, is a plane 
perpendicular to the meriodional plane, the paper, with a 
cone half-angle a. The incident angle makes an angle of 
incidence @, with the first surface normal n at point T 


according to 


a (a + |oz]) 


Noting that a= Q2, = |NORM|- 92, NORM = a2 - > (B-1) 


PR 
and applying Snell's Law sind, = (n,/nj) sind, (B-2) 
yields 
= a 
A = Ci ia 


the ray angle in the lens referred to as 9; in chapter III 


and Appendix F. As the incident ray angle Py increases the 
angle of incidence oF decreases to zero when the incident 
causing 9. to transition through the normal as shown in 


i 
figure B-3, subroutine SNELL in TRACE detects this transition 


as a change in sign in 60 Snellts Law is defined with all 


iy 
arguments positive. Therefore the magnitude of oF is used 
to determine 6, and thus Pp aecconraing co 


sine, = (n,/n,)sind, yielding 


(Be) 


| 


O82 = o2 + OL - 


which is the same result for OS > 0. 
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The application of Snell's Law at the second surface of 
the lens is very similar to the first surface. The geometry 
Or Oo, > 0 is shown in figure B-4 and for oF <<. 0m Ln 
figure B-5. Some of the rays inside the lens may intercept 
the GLM axis at x < Zl and therefore may intercept the 
branch of the second surface in the lower half-plane. The 
geometry for this case is shown in figure B-6. A significant 
difference between rays intercepting the positive and negative 
branches of the second surface is the definition of the normal 
direction n. In figures B-4 and B-5 the direction of nt is 
into the lens where: in figure B-6, hn is defined to be out of 
the lens. Practically, this contradiction in definition has 
mo effect on TRACE because the angle of the normal used in 
applying Snell's Law has always been the acute angle as la- 
beled in all of the figures. The direction of n in figure 
B-6 was changed to reflect the change in sign of NORM. 

The search for and calculation of the intercept of the 
ray refracted at the first surface and the second surface is 
accomplished in subroutine BINARY SEARCH. The primary method 
used is the bisection method illustrated in figure B-7. The 
bisection method can only be applied where the ray in the 
lens is known to intercept the second surface of the lens. 
Examples of rays which do not intercept the second surface 
are shown in figures C-2, C-5 and C-10. The method used for 
the rays which do not intercept the second surface is dis- 


cussed later. 
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The bisection method converges to the intercept value 
quickly, especially if the ray is nearly normal to the second 
Surface. The sequence of events is depicted in figure B-7 by 
the circled numbers 1, 2, etc. Assuming 09; is known, 
the intercept of the GLM axis, A, of the ray in the lens is 
found. The first step in the bisection sequence, 1 is to 
find the midpoint of QA. The midpoint of QA, (xX age Nera! is 
Baeeulated under label Recurse p, line 7/440 of TRACE. The 
midpoint is then compared to the value of the second surface 


at Y=Ynia° The midpoint in figure B-7 is behind the second 
surface. Step 2 finds one midpoint of the line segment from 
Q to the midpoint of QA. A comparison is again made with 
the second surface. Now, the present location is ahead of 
the second surface. Step 3 is executed and the location is 
again compared with the second surface. The process conti- 
nues until the difference between the present location on 


the ray (x ) and the true value of the intercept 


mid’ ~mid 
(X5, Yusg)s Ix ans | is less than a specified tolerance, 
tol = ee? . Once the intercept of the ray and the second 
Surface has been found then go to label Done, line 8140, to 
define the (x, y) coordinates of the intercept. The x- 
coordinate is defined as the average of the present location 


on the ray, x and x2, the value of the second surface at 


mid’ 
mid’ 
The ray may pass ahead, shown by A < 21, of the second 


Surface. The test for A < Zl is conducted in line 6860. 
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Bethe test 1s true a jump to line 7720 is performed. A test 
is conducted in line 7870 to determine if the ray intercepts 
the negative branch of the second surface. If the test is 
true then a jump to line 8080 is made to prepare to enter the 
bisection method for the negative branch, which is identical 
to the method for the positive branch described above. The 
test performed in line 7870 will not detect a ray that is 
just tangent to the second surface. The slow march method, 
lines 7840 to 8000, is employed to search and find the inter- 
cept (A, 0) and marches down the ray until the second 
surface intercept is found within the tolerance, or the wall 
Meetie GLM, y = -Y bullet is reached. If y = ~-Y_ bullet 
then the march is terminated and a jump to line 8250 via 8150 
is made to exit the subroutine. 

A special case exists when O- < 0. The ray in the lens 
could intercept the positive branch. A test is conducted in 
line 7010 to determine if the ray intercepts the positive 
Moranch. If the test is true a jump is made to line 7330 for 
entry into the bisection method. If the test fails then the 
marching method is used. The application of the marching 
method for this case is made from line 7100 to 7320. 

Another special case exists when the polynomial used to 
describe the second surface causes the second surface to 
intercept the first surface at |y]| < Y_ bullet. The test 
for this case is conducted in line 7370 for the positive 


Beranch and line 7770 for the negative branch. If the test 
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is true, then a jump is made to line 8280 and the subroutine 
is exited. 

The "success". of a conical lens is whether light rays = 
be focused to a point. Success is determined two ways. The 
first 1s the ray diagram; compare figures 14, 22, C-2, C-10 
and C-16 for the ability of each lens to focus light rays. 

The second method is by a histogram of the ray distribution 

on the image plane. The desired histogram is a delta func- 
tion at the origin as shown in figures 15 and 23. Undesir- 
able histograms are shown in figures C-3, C-7, C-13, C-i4 and 
C-17. The histogram is calculated by dividing the image 

plane in the upper half-plane into an even number of intervals 
meal tO N increment. The division of the image plane is also 
performed in the lower half plane as shown in figure B-8. The 
intervals are arranged such that the GLM axis is straddled by 
the center interval, thus adding a half-interval to each 
extremity of the image plane. Hence, the total number of 
mecerVvValsS is then 2*N increment +1. The generation of the 
histogram is executed in subroutine DENSITY, line 17920. 

The algorithm checks each interval for an intercept of a ray 
with the image plane in lines 18440 to 18820, DENSITY then 
normalizes the distribution to the number of hits on the 

image plane, not the total number of rays in lines 18830 to 
18930. The percentage of the rays striking the image plane 

is calculated in lines 18920 and 18930 and displayed to the 


Operator by subroutine LAXES in lines 12870 and 12880. The 
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percentage label serves to remind the operator that the 

histogram represents the distribution of the rays actually 

Meeriking the image plane within the boundaries of the GLM. 
The subroutines in Table B-l were copied or derived 


from the HP-9845B utilities library for use in TRACE. 


ey 








TABLE B-I 


SUBROUTINES DERIVED FROM THE HP-9845B UTILITIES LIBRARY 





Name’ Line No. 
Main cS 
Bee te LOL 0 
Laxes 11430 
Dialogue 13810 


3 : 








180 
1190 


NORMAL 
PRINTE 
PRINT 
FIXED 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
DISP 
WAIT 


TRACE PROGRAM LISTING 


Reels 16 


PAGE 

< : 

"LR REREREKEER RE EERE EERE SEE ERE RR EEERKEREEEEES KEELER EEEEEKEEEEEES HHH HSE" 
We *" 
" & TRACE ** 
wy » 


VEER EEEECEEEEEEK EEE EEE EE ESSE SEEKER EREREESEEF KEKE REKRERE SRS EF RHC EHH" 
"THIS IS TRACE" 
15609 


120 Main: OPTION BASE 8 


138 
140 
158 
169 
179 
189 
198 
288 
2160 


330 


368 


| 
com 
COM 
COM 
' 
COM 
COM 
com 
' 
COM 
com 
COM 
! 
COM 
{ 
INT 
DIS 
OVE 
CAL 
DEG 
Comme 


INTEGER I,J,Curve,Np,Nn,N,Ns,Nr,REAL Aneg( 172, Apos¢(17),AC175,21,22,24 
Alpha, Talpha,Rho, Trhs,Rho_initial.,Trhoi,Phi,Tol,Norm,Al phage 
N1,N2,NS3,Percent_ image, Ya, /b,Aperture, Y_duller 


INTEGER YO_loop,Nray,Add ray,Surf_no,Flag,Flag2,N_increment,Hit total 
INTEGER Linecount,Llinemax 

INTEGER Pselect,Hpid 

REAL Nmin,Nmax,RO_ max 

Ray traces,Digitizes, Grins, G§$,Grincs,Plots, Dates 

%€1290),7C1250), Xe (250), NC2502,R¢ 250) , 

Rho 750), Phi (250),C¢258), Y3¢250),Hit (2001) 


EGER 22,Char_max 


P we oa 

RLAP !' SEE THE 93845 OPERATING AHD PROGRAMMING MANUAL 

L Dialogue 

nts: FLAGS ARE VSED THROUGHOUT THE PRUGRAM TO INDICATE YVRRIOUS 


CONDITIONS WHICH INFLIJENCE THE BEHAVIOR AND TREATMENT OF THE 
LIGHT RAY AS IT PASSES THROUGH THE LENS SYSTEM. THE EXPLANATION 
OF FLAGS USED IN THE GENERATION GF THE RAY DIAGRAMS 

AND THE DECLARATION LOCATION IS GIVEN EELOW: 


' 

| 

| 

| 

| 

| 

FLAG ° 

| 1> @ => DECLARED IN MAIN AND BINARY SEARCH 

| RESET CONDITIUN 

| 2> 1 => DECLARED IN BINARY SEARCH 

| RAY INTERCEPTS THE NEGATIVE BRANCH 

3)> 5S #> DECLARED IN SNELL 

! Theta I < @ DEGREES 

| 4> 1@ 2> DECLARED IN SNELL 

| TOTAL INTERNAL REFLECTION 

| S> 15 2> DECLARE IN SNELL 

| THE RAY LEAVES THE SECOND SURFACE WITH 
! ABSCRHO) > 90 DEGREES (THE RAY WILL NOT INTERCEP 


THE IMAGE PLANED 

6> 20 => DECLARED IN BINARY SEARCH 
THE RAY MISSES BUTH THE POSITIVE AND NEGATIVE 
BRANCHES FOR ThetalI > OR < B DEGREES 

7) 380 => DECLARED IN BINARY SEARCH 
THE SECOND SURFACE BENDS AROUND AND CROSSES THE 
FIRST SURFACE 


Flag2 : 
1> @ => DECLARED IN MAIN AND BINARY SEARCH 


i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
j 
RESET CONDITION 

! 2> 1 => DECLARED IN BINARY SEARCH 

THE RAY INTERCEPTS THE NEGATIVE BRANCH 

I 

! NOTE: THESE ARE NOT ALL OF THE FLAGS, JUST THE ONES AFFECTING 


ie 





679 
6389 


« 
a 


690 Gymnastics: 


708 
718 
rds 
729 
7390 
7493 
750 
760 
779 
789 
799 
399 


N",Y¥_hards 


819 
829 
839 


358 


949 
359 
969 


979 Image_p: 
989 [mage_n: 


999 

1989 
1919 
1929 


RAYS. 


¥_hards="N“ 
Flag2s="1" ‘ 
INPUT "DO TOU WANT A HARD COPY OF THE COMPUTED DATA? Y7N",Y¥_ha 


IF C¥_hards="N") OR CY¥_hards="n")> THEN Flagzs="9" 
GOSUB Yhard 
GOSUB Printer 
BEEP 
PAUSE 
IF (Gs="¥"> OR (G$="y"> THEN GOSUB Header _grin 
IF (GsS="¥"> OR (GS="y"> THEN Initialize_run 
Y_hards="N" 
INPUT "DO YOU WANT A HARD COP’? OF THE COEFICIENTS PRINTED ~* Yv 


IF ¢¥_hards="N") OR CY_hards="n"> THEN 1960 
GOSUB Yhard 
GOSUB Header_coef 

FOR [30 TO Np 
IF Linecount >Linemax THEN GOSUB Header coef 
PRINT USING Image_p,I,Apos<I) 
Linecount=Linecount +1 

NEXT I - 
IF Linecount>Linemax THEN GOSUB Header_coef 

PRINT 

Linecount=Linecounttl 

FOR I=@ TO Nn 
IF Linecount >Linemax THEN GOSUB Header coef 
PRINT USING Image_n;I,Aneg<I> 
Linecount=Linecount+l 


NEXT 1 
IMAGE 25%, "Apos¢"DD"> = ",K 
IMAGE 25%, "Aneg¢"DD"> = ",K 


GOSUB Header_coef_end 
PRINT LINC2), "PRESS CONT” 
PAUSE 
IF Flag2$="1" THEN Y_hards=e"y" 
GOSUB Yhard 
GOSUB Header 


Initialize run: Surf_no= 


Y@_loop: 


Z1izApos¢( a> 
IF ¢G$2"¥") OR (GS="y")> THEN 23=15 
YO_minzYa*(Talpha-Trhoid/’Talpha 
YO _max=Yb*#¢Talpha-Trhoi>/Talpha 
Xnray=Nr ay ! TO KEEP FROM USIN MIXED MODE ARITHMETIC 
Dely=(Y¥O_max-YO_min>/Xnray 
YO _min=7¥O min-Dely 
IF Ya=@ THEN YO_min=YO_min+Dely 
Nray=Nray+Add ray 


Ns=-1 1 COUNTERS 
Nrz-1 
4¢(9)29 
N(O>=8 
Phi (9529 
C6929 
FOR YO_ltoop=! TO Nray 
Flag=9 1 RESET FLAG 
Flag 220 
A323 
Rho=Rho_initial 
Trho=TAN(Rho > 


Ay _loop=7Y@_loop 
Y27¥O_min+Dely*+xXy98_loop 
Ns=Nsel 

Nr=Nr-+i 

ACN) 2x 
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1320 YCNsSI2Y 


1339 Rho<Nr)=Rho 

1340 One: Surf_not 

133590 Ns=Ns+1l 

1360 Nr=Nr+t 

1379 CALL Binary_search(x,Y) 

1380 x CNS) =X 

13990 YCNS)2Y 

1409 CALL Snell¢x,Y) 

1410 Rho¢Nr>=Rho 

1429 IF (Gss"¥"> OR (GS="y")> THEN PhicY@_loop)=Phi 
1438 Two: Surf _no=2 

1449 Ns=Ns+l 

1430 Nr=Nr+t 

14690 CALL Binary _search(%, Y) 

1479 XCNS)=K 

1489 YCNsd2Y 

1499 IF (Gs="¥") OR (CGS$="y") THEN Blind 

1399 IF Flag=20 THEN Blind 

1510 IF Flag=30 THEN Flag_ 39 

13520 CALL Snell¢x,Y) 

1530 Rho<Nr) Rho 

15490 Flag 15: IF Flag<>15 THEN Flag 10 

15350 GOTO Blind 

1560 Flag _ 19: IF Flag<>10 THEN Three ! FLAG 30 WHEN FIXED 
15790 ac¢CY8_ loop) =d 

13580 Rho<Nr>=8 

1359@ GOTO Blind 

1698 Flag 39: IF Flag<>3@ THEN Three 

1619 4eCY¥O loop =8 

1620 Rho¢(Nr 39 

1639 GOTO Blind 

1648 Three: Surf_no=3 ' FIRST (MOVABLE) IMAGE PLANE 

16359 Ns=Ns+1 

1669 CALL Binary _search¢%, Y> 

16798 XCNS> =X 

1688 YCNS)2Y 

1690 Four: Surf_noz4 

1709 Ns=Ns+i 

1718 CALL Binary_search¢xX,Y) 

1720 xCNS) 2X 

1730 Y CNS) =Y 

1748 GOTO Next_y@_ loop 

1750 Blind: Ns=Ns+1 [ THE RAY CROSSED AHEAD OF THE SECOND SURFACE 
1768 X(NS)> 30 ' AND WAS NOT REFRACTED 

1779 Y<(Ns)>2@ 

1789 Ns=Ns+1 

1790 X(NS)20 

1809 Y(Ns$>3@ 

1810 Next _y@ loop: FIXED 2 

1829 Nsp=Ns-1 

1839 IF <G$2"¥") OR (GS$2"y"> THEN Print_grin 
1849 IF Linecount >Linemax THEN GOSUB Header 
183590 PRINT USING Image_data;X<Nsp-3)5; Y(Nsp-3);5X¢(Nsp-2);YCNSp-2)5 4% 
NsprlosYCNsp-1)3xXceC¥8 loop), 0; X<Nsp>; YCNsp) 5 Rho 

1869 Linecount=Linecount+! 

1379 GOTO Continue : 

1880 Print grin: IF Linecount>Linemax THEN GOSUB Header_grin 
13898 PRINT USING Image_data_g;X(Nsp-3)5 YCNsp-3)5X¢(Nsp-2)5 YCNSsp-2) 546 
NsprlosYCNspriodsxcC¥S@_ loop ds8;NCV8_loop); Rho 

19980 Linecount=Linecount+!l 

1918 Continue: NEXT Y@_loop 

1920 ! 

tSo30 =! 


1940 Image data: IMAGE X¢2¢D.DD,xX,DD.0D,3xX>,DD.DD,x,DD.DD,1X,60.0D,%,D. DD, 3X, 2D. 
0D,%,40.00,3x,4D.0D> 
1950 ! Image data: IMAGE D,2xX,00.00,3x,DD.0D,2xX,D0.DD, 3%, 0D.DD, 2%, DDD. DD, 3%, 35D.2 


181 : 





Deen, 0, 3X, 00. 00,2%, 50.00, 3%, 4D. DD 


1968 ! 


1978 Image _ data g: 


SoD, 34%,4D. DD») 
1980 =~! 


1 USE THIS FOR Y_BULLET > 10 INCHES 


IMAGE 7XC2¢D.0D,XD.0D0, 3%), D0D.0D,X, DD.0D, 3%, 3D0.0D,4, 0.00, 3%, DD 


1998 ! 

2008 GOSUB Header_end 

29198 GOSUB Yhard_ end 

2920 PRINT LINC2), "FINISHED" 

2038 BEEP 

2040 WAIT 258 

2058 BEEP 

<860 IF (G$="Y¥") OR (G$="y"> THEN Graph_grin 

2370 Ray traces="N" 

2888 INPUT "DO YOU WANT TO PLOT THE RESULTS OF THE TRACE ? Y/N", Ray _trace 
$ 

2099 IF CRay_traces="N"“> OR (Ray _ traces="n")> THEN Rerun 

2180 INPUT "ON WHICH DEVICE: CRT <C>) OR THE 9872 (P> ? PY", Plors 

2118 IF ¢<Plot$="C")> OR ¢(PlotS="ce") THEN Graph 

2120 INPUT "PLEASE ENTER THE SELECT CODE OF THE GRAPHICS DEVICE “DEFAULT 

z= 7 )",Pselect 

21398 INPUT "PLEASE ENTER THE HPIB ADDRESS OF THE GRAPHICS DEVICE (DEFRULT 
2 S )",Hpib 

2148 Graph: CALL Graph 

2150 YS="N" 

2160 INPUT “DO YOU WANT ANOTHER PLOT DRAWN TO A DIFFERENT SCALE ? Y/N", 7S 
2170 IF CY¥$="Y¥") OR CY¥S$="y") THEN Graph 


2180 Density: 
2199 
u visually." 
2200 


2210 
2220 
»>down,<-,->)." 
2239 
button" 
2248 
s" 
2250 
2268 
2279 
2289 
2239 
rays" 
23980 
2319 
2329 
23390 
2340 
2359 
2369 
2379 
2380 
2390 
2400 
2418 
2429 
2430 
2449 
2450 
2460 
24793 
2489 
2490 
2580 . 


PRINTER IS 16 


PRINT 
PRINT 


PRINT 
PRINT 


PRINT 
PRINT 


PRINT 
PRINT 
PRINT 
PRINT 
PRINT 


PRINT 
PRINT 
PRINT 
PAUSE 
PRINT 
PRINT 
PRINT 
PRINT 
PAUSE 


PAGE," The point of maximum ray density is determined By vo 


"by placing the crosshairs ‘they will appear automatically) 
"over the position of maximum density." 

¥ This is accomplished by using the DISPLAY controls Cup 
interest, 


"When you get cursor in the area of 


“with the DISPLAY controls ‘both shift and display control 
"should be depressed simultaneously) for fine positising. " 
Brice.” The position of the Vertical hair i3 critical,” 
“because its location is used for the position of the " 
“image plane (23) on the GLM axis." 


LINC2)>, "CAUTION =: Do not let the image plane interce2pt any 


"in the interior of the lens. If this is done, those rays" 
"will be included in the histogram. " 

-FRESS CONT" 

PAGE, " The histogram is an illustration of the density" 
"of the rays that intercept the image plane versus radial "“ 
“distance from the GLM axis." 


LINC2), “ When the position has been located, PRESS CONT." 


Digitize$s="Y" 
CALL Graph 


IF Plots="P" 


THEN 2468 ! P FOR HP-9872 PLOTTER 


Dump ecrt$="N" 


INPUT 


"DO YOU WANT A HARD COPY OF THE PLOT ? Y/N", Dump_ert$ 


IF CDump_ert$="¥") OR CDump_erts$="y") THEN GOSUB Printer 


DIS? 


"WORK IN’ 
CALL Density ! 
IF Plotrs$="P" 

Digitizes="N" ' 


ON THE HISTOGRAM..." 

PRODUSE A HISTOGRAM OF THE RAY DENSITY 
THEN 25290 

RESET CONDITION 


Dump_cert $="N" 


INPUT 


“DO YOU WANT AR HARD COPY OF HISTOGRAM ? Y/N", Dump_cres 


a 2 





2518 
2520 
2530 
LANE 
2548 
2550 
2560 
2579 
2580 
2590 
2600 
2610 
2620 


eY/N", 


Reruns 


TIF (Dump_ert$s"V¥")> OR CDump_crt$=e"y"> THEN GOSUB Printer 
Y¥$=a"N" 
INPUT “DO YOU WANT TO REDRAW THE HISTOGRAM FOR A DIFFERENT IMAGE P 
Ys 
IF ¢Y¥$s"¥") OR CYS="y") THEN 23=50 
IF (Ys2"¥") OR (Y$="y") THEN Graph 
Digitizes="N" ! RESET CONDITION 
PRINTER IS 16 
Y$="N" 
INPUT "RRE YOU GOING TO MAKE ANY MORE RUNS? ‘“*/7N", 7S 
IF ¢Y¥S2"N") OR CY#="n") THEN Finished 
Change $="N" 
INPUT "ARE YOU GOING TO CHANGE ANY PRRAMETERS (n2,n3,Alpha,Hray, OR 


RHO-INITIAL?+? Y/N", Changes 


2630 
2640 
2658 
2660 
2679 
2680 
26990 
2700 
2710 
2720 
2730 
2740 
2759 
2760 
2770 


2780 
2790 
2800 
28190 
ER." 
2820 
28390 


GOT 
Graph_g 


Y/N", YS 


IF (Changef="H")> OR (Change$="n") THEN Gymnastics 
GOSUB Printer 
PRINT “ If you do NOT want to change a particular parameter" 
PRINT “PRESS CONT in respose to the prompt." 
INPUT "WHAT IS THE NEW VALUE OF RHO-INITIAL ?",Rho_initial 
Rho_initials-1*ABSCRho_initial) 
TrhoisTANCRho_initial> 
INPUT “WHAT IS THE NEW YALUE OF ALPHA?” ,Alpha 
Talpha=TAN‘¢Al pha> 
INPUT “WHAT IS THE NEW VALUE OF Y_BULLET ?",Y¥_ bullet 
INPUT “WHAT IS THE NEW VALUE OF Ya ?",Ya 
INPUT "WHAT IS THE NEW VALUE OF Yb ?",Yb 
Add_ray=0 ! RESET CONDITION 
IF Ya>=Yb THEN BEEP 
IF Ya>=Yb THEN DISP “Ya MUST BE < Yb. PLEASE RE-ENTER ‘a RAND ‘Yb. 


IF Ya>s¥b THEN WAIT 2500 

IF Ya>sYb THEN 2730 

IF Yb>Y bullet THEN BEEP 

IF Yb>Y_bullet THEN DISP “Yb MUST BE < Y_ bullet. PLEASE RE-ENT 


IF Yo>Y_ bullet THEN WAIT 2500 
IF Yb>Y_bullet THEN 2720 
Rperture=Yb-Ya 
TIF Ya<>o@ THEN Add_ray=! 
INPUT "WHAT IS THE NEW VALUE OF n2?",N2 
INPUT “WHAT IS THE NEW VALUE OF n3?",N3 
INPUT “WHAT IS THE NEW VALUE OF 23 ?",25 
INPUT "WHAT IS THE NEW VALUE OF THE No. OF RAYS?",Nray 
INPUT "WHAT IS THE NEW No. OF INCREMENTS (1000 MAX >) ?",N_ increment 
Changes="¥" 
O Gymnastics 
rins J=i 
FOR !f21 TO Nray 
RCTIBSOARCKC JO“ 24965923 
CCTIIBNC TORO IO *#SINCPHI CID) 
JeJ+$§ 
NEXT I 
Y$="N" 
INPUT “DO YOU WANT TO PRINT A TABLE OF GRIN AND THE GRIN CONSTA 


IF ¢Y$="N") OR CY$="%n")> THEN 3159 
Y_hard$=°N" 
INPUT "DO YOU WANT A HARD COPY OF THE TABLE ? Y/N",Y_hard$ 
GOSUB Yhard 
GOSUB Header_c 
FOR I2=1 TO Nray 
IF Linecount >Linemax THEN GOSUB Header _c 
PRINT USING SOSOSI,NCID,RCIX,PRHiC ID, SINCPHICIID, CCID 
IMAGE 3X,4D,5¢(5%, 4D. 4D) 
Linecount=Linecount+l 
NEXT I 
GOSUB Header_end 
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3139 
3148 
3152 
3168 
3178 
3180 
3190 
3200 


3219 
3220 
3239 
3248 
3258 
3260 
nes 

3279 
32898 
32992 
3390 
33192 
3320 
3339 
3349 
3358 
33686 
3378 
3388 
3399 
34088 
3419 
34298 
3439 
» OR 
3440 
3439 
34608 
3479 
3480 
34990 
35990 
3519 
3520 
33539 
33549 
3539 
3569 
33579 
3580 
33599 
3690 
3619 
3629 
3639 
3639 
3659 
3669 
3672 
3689 
36986 
3798 
3718 
3729 
3730 
3740 
3750 
3760 


GOSUB Yhard_end 


Y$u"N" 


INPUT 


"DO YOU WANT TO PLOT THE RESULTS OF THE TRACE ? Y/N",Y$ 


IF CY¥$="N") OR C¥$="n") THEN Grince 


INPUT "ON WHICH DEVICE: 
CALL Graph 

Y$="N" 

INPUT "DO 


Grince: 


CRT ¢C) OR THE 


9oeee.r 2 ECP ~ Plots 


YOU WANT ANOTHER PLOT DRAWN TO A DIFFERENT SCALE ? Y/N" 


IF (Y¥$="V¥") OR CY$="y") THEN CALL Graph 
Dump_crt$="N" 
INPUT "DO YOU WANT A HARD COPY OF THE PLOT ? Y/N", Dump_erts 
IF (Dump_ert$="¥") OR CDump_erts="y") THEN GOSUB Printer 


Grinc$="N" 
INPUT 


"DO YOU WANT A GRAPH OF THE GRIN CONSTANT Clr) vs r ? YN", Gri 


IF ¢€Grine$="N"> OR (Grine$="n"> THEN Rerun_grin 


INPUT 
Grinecs="Y" 


Grincel: 


"OM WHICH DEVICE: 


CALL Graph 


Grincs2"N" ! 


RESET CONDITION 


Dump_crts="N" 
INPUT “DO YOU WANT A HARD COPY OF THE PLOT ? Y/N", Dump_erté 
IF (Dump_erts="V¥") OR CDump_crt$e"y") THEN GOSUB Printer 


CRT <C>) OR THE 9872 


CP) 2? CVP ",Plots 


Y$="N" 
INPUT "DO YOU WANT ANOTHER PLOT DRAWN ? Y/N", YS 
IF ¢Ys="Y¥") OR CY$2"y") THEN Grincl 
Rerun_grin: Y$=s"N" 
G$="y" 1 INSURANCE 
INPUT “ARE YOU GOING TO MAKE ANOTHER RUN ? Y/N",'S 
IF CY$="N") OR CYS="n") THEN Finished 

Changes="N" 
INPUT 


RHO-INITIAL>? Y/N", Changes 
IF (ChangeS="N")> OR (Change$="n") THEN Gymnastics 


GOSUB Printer 


PRINT " 
PRINT “PRESS CONT in respose to 
Add ray=90 ' RESET CONDITION 


INPUT “WHAT IS THE NEW VALUE OF 
Rho_initial=-1L*#ABS<CRho_initial) 
Trhoi=TAN(CRho_initial> 
INPUT "WHAT IS THE NEW VALUE OF 
INPUT “WHAT IS THE NEW YALUE OF 
IF (Grin$="C") OR CGrins="c") 
INPUT “WHAT IS THE NEW VALUE OF 
INPUT "WHAT IS THE NEW VALUE OF 
INPUT “WHAT IS THE NEW VALUE OF 
INPUT “WHAT IS THE NEW VALUE OF 
INPUT “WHAT IS THE NEW VALUE OF 
INPUT “WHAT IS THE NEW VALUE OF 
IF Ya>=Yb THEN BEEP 
IF Ya>=Yb THEN DISP 
IF Ya>s=Yb THEN WAIT 25980 
IF Ya>sYb THEN 3599 
Aperture=Yb-Ya 


ria MUST BE < Yb. 


"ARE YOU GOING TO CHANGE ANY PARAMETERS (n2,n3, Alpha, Nray 


If you do NOT want to change a particular parameter" 


the prompt.” 


RHO-INITIAL ?",Rho_initial 


ALPHA?” Alpha 
Nmin ?",Nmin 
THEN 3578 

Mmax ?",Nmax 

RQ max ?",ROQ_max 
n3?",N2 
THE No. 
Ya ?",Ya 
wove 3 oO 


OF RAYS?",Nray 


PLEASE ENTER AGATH" 


IF Ya<>@ THEN Add raysAdd_rayri 


Change $="" 
GOSUB Printer 
Change$="N" ' 


GOTO Gymnastics 
IF (Changes="Y¥"> OR (Change$="y">) THEN Y_hard$="N" 

IF (Dump_ert$3"¥") OR CDump_crt$="y") THEN Y_hards="Y" 

IF ¢Y_hards="Y">) OR (Y_hards$="y"5 THEN PRINTEP I5 8 

IF (Y_hards="VY") OR (Y_hard$=2"y") THEN PRINT CHREC27)0&"2100T" 
IF <Dump_ert$e"¥">) OR CDump_ertS="y")> THEN Crt 


Printer! 


GOSUB Header_initial 
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RESET CONDITION 





3848 
3858 Grint: 
3868 
3878 


IF (G$="¥") OR (GS$="y") THEN Grinl 
FIXED @ 
IF Linecount >Linemax THEN GOSUB Header_initial 
IF Dates=""" THEN 3336 
PRINT "Curve No: "“;Curve, TABC48)5; "Date: ";Dates 
GOTO 38490 
PRINT “Curve No: "sCurve 
Linecount=#=Linecountel 
FIMED < 
IF Linecount>Linemax THEN GOSUB Header_initial 
PRINT LINC1),"RHOCINITIAL) = "SRho_initial; "degrees"; THE‘ 43°; "Aiph 


a= “;Alpha; "degrees" 


4158 
4160 
4178 
4180 
41908 
4200 Grine: 


42390 Grin3: 
4240 

4258 
BC48)>3"Yb = 
4260 

42708 

4280 

4290 

4300 

43190 

4328 Grins: 
4338 

4348 

4350 

4360 

4378 

4330 

4398 

4400 Grins: 
4410 ; 


Linecount=Linecount+l 
IF Linecount >Linemax THEN GOSUB Header_initial 
PRINT “TANCRHO-INITIALD = “3 Trhoi; TABCS3.93;"TantAlphad = “;Talpha 
Linecount=Linecountel 
PIXED 5 
IF (€G$=2="N") OR CGS="n") THEN Grine 
IF Linecount>Linemax THEN GOSUB Header_initial 
PRINT LINC12, "nl = “SNL3TABC48935"n3 = "SNS 
IF CGrin$="C") OR CGrins="c"> THEH 4018 
IF Linecount >Linemax THEN GOSUB Header_initial 
PRINT LINC19,"Nmin = "sNmin; TABC4S)5 "Nmax = "3 Nmax 
Linecount=Linecountel 
GOTO 4848 
IF Linecount >Linemax THEN GOSUB Header_initial 
PRINT LINC1),"Nmin = “$Nmin 
Linecount2lLinecount+l 
IF Linecount >Linemax THEN GOSUB Header_initial 
PRINT 
Linecount=Linecountel 
FOR I21 TO Nray STEP 3 
IF Linecount \Linemax THEN GOSUB Header_initial 
IF [52250 THEN PRINT USING 4140; I,NCID 
IF I>2250@ THEN 4129 
PRINT USING 41303 I,NCID,I+1,NCI+1), L+2, NCI +2) 
Linecount=Linecountel 
IMAGE 3¢35X%,"n2c"3D"> = ",20.53) 
IMAGE SX,"n2¢"3B")> = ",2D.53 
NEXT I ; 
IF Linecount >Linemax THEN GOSUB Header_initial 
PRINT LINC15,"RO_max = "3RO_max;" inches" 
Linecount s=Linecountel 


GOTO Grins 

IF Linecount >Linemax THEN GOSUB Header_initial 
PRINT LINC1), "nl = “SNISTABC24935"n2 = "SN25 TABC43)93;"n3 = “SN 
Linecount=Linecount +1 
FIXED 3 


IF Linecount>Linemax THEN GOSUB Header_initial 
PRINT LINC1),"Aperture = “;Aperture; TABC249)5 "Ya = "sYas" inch “TA 


“Yb3" inch " 


IF (Gsa"¥") OR (G$2"y")>) THEN Grind 
Linecount=Linecount +] 
FIXED 2 

IF Linecount>Linemax THEN GOSUB Header_initial 
PRINT LINC15,"23 = "$233 "inches"; TABC43)5 "24 = "3245" inches” 
Linecount=Linecount +l 
FIXED 8 

IF Linecount >Linemax THEN GOSUB Header_initial 
PRINT LINC1),"Number of Rays = "$Nray 
Linecount=Linecount +l 

IF (G$2"¥") OR (GS$="y")> THEN Grind 

IF Linecount >Linemax THEN GOSUB Header_initial 
PRINT LINC1>,"Number of Increments = “s;N_increment 
Linecount=Linecounttl 
FIXED 2 

IF Linecount \Linemax THEN GOSUB Header_initial 


oi) 





4420 
4436 
4440 
4458 
44650 
44706 
4480 
4490 
4506 
4510 
4520 
4530 
4540 
4558 
4560 
4578 
45890 
4590 
4688 
4618 
4628 
4638 
4648 
4656 
46690 
4670 
4680 
4690 
4788 
4718 
4720 
4738 
4748 


47350 


4760 
4778 
4780 
4790 
4800 
4810 
4820 
4830 
4840 
4850 
4868 
4870 
4880 
4890 
4900 
4910 
4926 
4930 
4949 
49350 
4960 
4978 
4988 


4999 
5800 
5010 


5828 
5028 
5848 


PRINT 
Linecount2=Linecount +1 
GOSUB Header_end 


Cre: IF (CDump_lerts="¥"> OR CDump_ertes="y") THEN DUMP GRAPHICS 
TF ¢€¥_hards2"¥"> OR CY_hards="y"> THEN PRINT CHREC270&"&1S0T" 
Changes="N" ! RESET CONDITION 
Dump_crt $="H" 
Y_hards="N" 
RETURN 


Ynard: IF ¢/%_hards="Y¥"> OR CY¥_hard$s"y")> THEN Flags="1" 
IF ¢Y¥_hard$="N") OR (Y_hard$="n") THEN Flags=")" 
IF ¢¥_hards=""") OR (Y_hards$s"y"> THEN PRINTER [5 8 
IF Flags="t" THEN PRINT CHREC27>%"&100T" 
RETURN 
Yhard_end: IF ¢Flags="1"> OR (Flags="9") THEN PRINT CHRECS7OR"&TSET" 
IF (Flags="1"> OR (Flag$="0") THEN PRINTER [5S 16 
RETURN 
Header coef: IF Linecount>Linemax THEN GOSUB Header_coef_end 
Linecount =6 
PRINT PAGE;LINCS> 
GOSUB Char_short 
PRINT LINC1)9;SPAC6)5 "COEFFICIENTS"; LINC 21> 
GOSUB Char_short 
PRINT LINC2>) 
RETURN 
Header_coef_end:s PRINT LINC2> 
GOSUB Char_short 
RETURN 
Header_c: IF Linecount >Linemax THEN GOSUB Header end 
Linecount =6 
PRINT PAGE;LINCS) 
GOSUB Char 
PRINT LINC1>," I n¢I) r<I> Phi cl) 
Sin¢Phi>d ecto", LINCt> 
DSP ~ I n¢I) rel) Phi¢<l) 
Sin¢Phi) Cle 
GOSUB Char 
PRINT LINC2) 
RETURN 
Header _c_end: GOSUB Header_end 
RETURN 
Header initial: IF Linecount>Linemax THEN GOSUB Header end 
Linecount=0 
PRINT PAGE; LINCS); TABC23); "INITIAL PARAMETER VALUES";LINC1) 
GOSUB Char 
PRINT LIN¢C2) 
RETURN 
Char_short: Char_max225 
FOR 2=@ TO Char_max 
IF 22Char_max THEN PRINT CHRS$¢(228) 
IF 22Char_max THEN 49280 
PRINT CHRS$(223);5 
NEAT 2 
RETURN 
Header: IF Linecount >0Linemax THEN GOSUB Header end 
Linecount 30 
PRINT PAGE,LINC5) 


GOSUB Char 
PRINT LIN¢C1), “ (4X8, YOD CAL, V1) CX2,Y2> (Xe, fod 
(x3, Y3> RHO"$LINC1) 
GOSUB Char 
PRINT LINC2) 
pis.” (X83, YO) CX1,Y1) CX2,Y2) (Xe, Yad 
€X3,Y3) RHO" 
RETURN 
Header grin: TF Linecount >Linemax THEN GOSUB Header_end 


Linecount =0 
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5050 
5@68 
5870 


CAC, 


5Q80 


CXc, 


3898 
5100 
S119 
5120 
5130 
5140 
5150 


PRINT PAGE,LINCS>D 
GOSUB Char 
PRINT LIN(C1), “ (X@, Y@D Gan vi Cxa.%2) 
Yo> Ne RHO" SLINC1)> 
DISP ". (XO, Y@> Cxla rl? Choe Yo) 
vc N2 RHO" 
GOSUB Char 
PRINT LINC2) 
RETURN 
Header_end: PRINT LINC2) 
GOSUB Char 
RETURN 
Char: FOR 22=@ TQ 79 
IF 22=79 THEN PRINT CHR$C(223> 
IF Z22=79 THEN 5138 
PRINT CHRS$(229); 


NEXT Zz 
! PRINT RPTSC "=", 30) ! THIS IS A LOT FASTER, BUT NOT AS PRETTY 
RETURN 
Finished: DISP "FINISHED" 
END 


SUB Slope cY> 
OPTION BASE 98 
! 
COM INTEGER [,J,Curve,Np,Nn,N,Ns,Nr,REAL Aneg(#),Apos(4),AC#),21,23,24 
COM Alpha, Talpha, Rho, Trho,Rho_initial, Trhoi,Phi,T91,Norm,Alphac 
COM N1,N2,N3,Percent_image,Ya,Yd,Aperture,Y bullet 
1 


COM INTEGER Y@_loop,Nray,Add_ray,Surf_no,Flag,Flag2,N_increment,Hit_ total 
1 
BEG 
IF Surf_no=2 THEN Two 
One: Alpha2=Alpha 
Norm=Al pha2-3@ 
SUBEXIT 
Two: IF Y<@ THEN Negative 
Positive: Tan_m2=@ ! SLOPE WRT Y-AXIS Cdx~dy] 
FOR IT=1 TO Np 
Tan_m2=Tan_m2+I*Apos¢( I> *#¥*¢I=-1) 


NEXT I 
M2=ABSCATNCTan_m2>> ! THE ANGLE IS POSITIVE CW WRT Y-AXIS 
Alpha2=90@-M2 ! THE ANGLE IS POSITIVE CCW WRT X-AXIS 
Norm#Al pha2-9@ 

SUBEXIT 


Negative: Tan_m2=@ 
FOR Iz1 TQ Nn 
Tan_m22Tan_metlI*Aneg( I> #¥*¢T-1) 
NEXT 1 
M22ABSCATN(Tan_m2)> 
Al pha2=90-M2 
Tnorm3-1/TANCAl phaed> 
Norm2ATN¢( Tnorm)-188 
SUBEND 
SUB Snel1¢X%, %> 
OPTION BASE @ 
! 


COM INTEGER I[,J,Curve,Np,Hn,N,Ns.Nr,REAL Aneg(*), Apost#),AC#),21,25,24 
COM Alpha, Talpha, Rho, Trho,Rho_initial, Trhoi,Phi, Tol, Norm,Alphag 

COM Ni,N2,N3,Percent_image,Ya,Yb,Aperture2,Y bullet 

1 

COM INTEGER YO_loop,Nray,Add _ray,Surf_no,Flag,Flag2,N_increment,Hit_total 
COM INTEGER Linecount,Llinemax 

COM INTEGER Pselect,Hpib 

1 


COM REAL Nmin,Nmax,RQ@_max 


-COM Ray traces, Digitizes,Grins,G$,Grinc$,Plot$, Dates 
COM XC #0, ¥C#), KOCHI NCH ,RO 
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3799 
$710 
$720 
3730 
3748 
3750 
3760 
$779 
3780 
3790 
3809 
3819 
3820 
38390 
3840 
3850 
ho> 

53860 
5870 
38389 
$890 
39980 
33910 
3920 
$9390 
3940 
3950 
3969 
53970 
5989 
33990 
60098 
6910 
6829 
6930 
6940 
6850 
6060 
6979 
68380 
6099 
61989 
6110 
6120 
6130 
6140 
61359 
0169 
6179 
6189 
61998 
6209 
62198 
6220 
6239 
6240 
6259 
6260 
6270 
6289 
6290 
$388 
6319 
6320 
6330 
6340 


' 
DEG 
IF Surf_no#2 THEN Two 
One: Nni=Nni 
Nn2=N2 
Thet ai=90-<CAl phatABS(Rho) >) 
CALL Slope) 
IF Thetai<@ THEN Neg theta 
GOTO Same 
Neg _ thetai: Flag=5 
Thetai=ABS< Thet aid 
Sip=N1I/“N2*Sin¢Thet ai) 
IF ABS<Sip2>1 THEN Wrong 
Thet ar=ASNC(Sip) 
Rho=Norm-Thetar 
IF CABS<Rho)<39.39999) OR CABS< Rho) >980.00001) THEN Trhs=TANCR 
IF CABS(Rho)>89.99999) AND CABS Rho?<=90>9 THEN Trho=-9929993 
IF CABS<Rho) 798) AND CRABSCRHO1<99.96801) THEN Trho=9999953 
SUBEXIT 
Two: Nni=N2 
Nn2=N3 
IF Y¥<@ THEN Negative 
CALL SlopecY) 
Thetaiz90-ABS(Rho)-Alpha2 
IF Thetai<@ THEN Neg thetai2 
Same: IF ¢G$="¥") OR (G$="y") THEN GOSUB Grin 
Sin_iprime=NnivNn2*SIn¢ Thetai > 
IF RBSCSin_iprime)>1 THEN Wrong 
Thet ar=ASN¢(Sin_iprime) 
RhozRipha2t+Thetar-90 ' USE ALPHAZ2 INSTEAD OF NORM BECAUSE THE 
! SIGN OF THE ANGLE IS DESIRED 
TrhosTAN (Rho) 
Phi=Ripha-Rho ! USED FOR.GRIN 
SUBEXIT 
Neg thetai2: Thetai=ABS(Thet ai) 
SipsNniv“Nn2*SIN¢ Thet aid 
IF Abs¢Sip)>1 THEN Wrong 
Thetar=ASN(Sipd 
Rho=Norm-Thetar . 
IF ABSCRho)>=90 THEN Skip ! THE RAY WILL NOT INTERCEPT 
' THE IMAGE PLANE 
IF ABSCRhO)<89.99999 THEN Trho=TAN* Rho) 
IF CABS<Rho) >89.99999) AND CABS<Rh0)<90>% THEN Trho=-9399399 
SUBEXIT 
Skip: Flag=1t5 
IF ABSCRho) >=90.008001 THEN Trho=TAN<(Rho> 
IF RBSCRho)<90.080001 THEN Trho29999999 
Rhop#18B-RABS< Rho) 
Trnop2eTANCRhop >) 
acCYO_ loop) =xX-Y/7Trhop 
SUBEXIT 
Wrong: Flag21@ ! TOTAL INTERNAL REFLECTION AT THE SECOND SURFACE 
SUBEXIT 
Negative: CALL SlopecyY) 
Thetai=90+ABSCRho)-Al pha2 
Sip2Nni/“Nn2*SIN¢ Thetai > 
IF ABSCSip)>1 THEN Wrong 
Thet arzASN¢(Sip) 
RhozNorm-Thetar 
Trho=#TANC(Rho) 
SUBEXIT 
Grin: N2=0 
IF (Grin$="P") OR (Grinft="p") THEN P 
C3 CALL Index _c¢X,Y) 
: NCYO_ loop) 2Ne2 
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6359 
6369 
6379 
5389 
6390 
64930 
6419 


_ 6428 


6439 
6449 
64350 
6460 
6479 
6480 
64990 
6589 
63519 
6520 
63530 
6540 
63559 
63560 
65790 
63580 
63599 
66900 
6619 
6628 
6630 
5640 
ullet 
6650 
6660 


IF Surf_no=t THEN Nn2=Ne 
IF Surf_noz2 THEN Nnl=N2 
RETURN 
=a CALL Index_p¢x, Y) 
NCYQ@_ loop )=N2 
IF Surf_no=1 THEN Nn2=N2 
IF Surf_nos2 THEN Nnl=N2 
RETURN 
SUBEND 
SUB Binary_search(x, 1) 
OPTION BASE @ 


COM INTEGER I,J,Curve,Np,Nn,N,Ns,Nr,REAL Anegs*), Apos(*),AC#),21,25,2 
COM Alpha, Talpha, Rho, Trho,Rho_initial, Trhoi,Phi,Tol,Norm,Alpha2d 

COM N1,N2,N3,Percent_image, Ya, Yb,Aperture,Y_ bullet 

i 

COM INTEGER Y@_loop,Nray,Add_ ray, Surf_no,Flag,Flagée,N_increment,Hit_total 
COM INTEGER Linecount,Linemax 

COM INTEGER Pselect,Hpid 

t 

COM REAL Nmin,Nmax,RQ@_ max 

COM Ray_trace$,Digitizes, Grins, GF,Grincs,Plotrs, Dates 

COM XC#), YC#), XCC#I NCH), RCRD 

' 


COM Rhoc#), PhiC#d, CCH), Y3C#), Hit ce? 
1 
DEG 
DEF FNACX, Y)2#X-Y/Trho 


DEF FNAICX,Y)=X-Y7Talpha 
DEF FNXn¢(AD=A-Y_bullet/Trho ! FINDS THE INTERCEPT OF THE RAY AND Ys-Y_b 


R=1 
IF Surf_noz1 THEN One 
IF Surf_no#2 THEN Two 
IF Surf_no#3 THEN Three 
Four: Dy=#€24-X)#Trho 
Y=+Dy 
x=24 
SUBEXIT 
Three: IF ¢Y>@> AND (Trho>@>) THEN Skip !THE RAY WILL NOT CROSS THE X-AXIS 
Xo CYQ@_ 1oop)=FNACK, YD 
Back: Dy=(23-X)4Trho 


Y=V+Dy 
X=Z23 
SUBEXIT 
One: CALL X1pos¢x%,Y) 
SUBEXIT 
Twos AZFNACX,Y) 
IF Flag25 THEN Search2 ! Theta [I <¢ @ FROM SNELL 
F 1 ag=0 
Fl ag239 
IF ¢G$3"Y") OR (GS$="y") THEN Grin 
IF A<Z1 THEN Negative ! THIS IS A SEPARATE AND UNRELATED TEST 
GOTO Positive ! FROM THAT PERFORMED IN SEARCH 2 
Search2: ! THIS ROUTINE IS ENTERED WHEN THE ANGLE OF INCIDENCE ON THE 
! FIRST SURFACE IS < 8 DEGREES. 
I THIS MEANS Thetal HAS DECREASED FROM ITS AKIAL VALUE TO 9 
' Cie. NORMAL TO THE FIRST SURFACE> THEN CONTINUED TO ROTATE PRST 
1! THE NORMAL. THIS TORRESPONDS TO A TARGET AT OR NERR CLOSEST 
! POINT OF APPROACH CCPA)D. 
l WHEN THIS HAPPENS RHOC1>) CAN BE LARGE ENOUGH TO CAUSE THE RAY 
! TO MISS THE FIRST AND SECOND SURFACE. 
l THE ROUTINE FIRST CHECKS TO SEE IF THE RAY CROSSES THE SECOND 
! SURFACE. IF S50, CONTROL SWITCHES TO FASTER BISECTION ROUTINE. 
! IF NOT THEN THE ROUTINE MARCHES SLOWLY DOWN THE RAY TO FIND THE 
. ' INTERCEPT CIF ANY). 
! 
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7818 
7820 
7038 
7842 
73858 


7428 
7438 


7468 
7478 


IF A>Z1 THEN Positive 
i 
Delta=.@1 
X12=xX 
Y122Y 
\ EVEN THOUGH THE X-INTERCEPT APPEARS TO BE < 21, THE SECOND SURFACE 
' COULD BE IRREGULAR ENUUGH TO CAUSE THIS SIMPLE CHECK TO BE DECEIVING. 
i THE RAY IS ASSUMED TO HAVE INTERCEPTED THE SECOND SURFACE IF THE 
' DIFFERENCE BETNEEN THE RAY POSITION AND THE SECOND SURFACE < TOLERANCE 
March: Deltax=Delta*COSCRhHo?D 
Deltay=Delta*SINCRhoa> 
X12=X12+Deltax 
YL2=VY1l2+Deltay 
IF Y12<@ THEN Missed ! YOU HAVE REACHED THE X-AXIS 
X22=0 
CALL X2pos¢(X2,Y12) 
XsavetX1l2-k2 
IF ABS(Xaver<=Tol THEN Donel ' FOUND THE SURFACE WITHIN TOL 
IF Xsave<@ THEN March 1 KEEP LOOKING 
IF Xsave>@ THEN Found it ' THE RAY CROSSED X2POS 
Donel: X=¢(X2+4X12)72 
Y2=Y1l2 
SUBEXIT 
Missed; X=A ' THE RAY HAS MISSED THE POS AND NEG SURFACES 
Y=0 ' DRAW THE RAY TO THE X-AXIS 
GOTO Blind 
Found_it: Xmid=xX12 ! THE RAY HAS CROSSED THE SECOND SURFACE. GO TO THE 
Xlast=Xmid ' BISECTION ROUTINE FOR SPEED 
YmidzY1l2 
Ylast=Ymid 
Xsave=3 
GOTO Recurse_p 
Positives X1=9 


X220 
CALL X1ipos¢xX1,Y) 
CALL X2pos¢(x%2, 7) 
IF X2¢=X1 THEN Woops 


Xmid=A { THE RAY HAS CROSSED THE X-AKIS BEHIND THE SECOND 
Xmid=A ! THE RAY HAS CROSSED THE X-AXIS BEHIND THE SECOND 
Xlast =Xmid ! SURFACE. THEREFORE Y>@ AT THE INTERCEPT 

Ymid=2 

Ylast=Ymid 

Xs ave=0 


Recurse_ ps XmidsCx+R#Xmidd7C1+R) 
Ymid=CY¥+Refmi dod’ cleRd 
X220 
CALL X2pos¢(X2, Ymid)? 
Xsavez=zx2-Xmid 


IF Xsave<@ THEN First ! INTERCEPT I[S BEHIND THE MIDPOINT 
IF Xsave>@ THEN Second PSINTEREEPT IS AHEAD OF THE MIDPOINT 
IF Xsave=@ THEN Done P UNTERCEPT IS THE MIDPOINT 


Recurse_ ns Amid=(X+ReXmido7C1+R) 
YmidsCY+ReY¥midd7C1+R) 
X230 
CALL X2neg¢(X2,Ymid> 
Xs avezX2-Xmid 
IF Xsave<@ THEN First ' INTERCEPT IS BEHIND THE MIDPOINT 
IF Xsave>@ THEN Second ! INTERCEPT IS AHEAD OF THE MIDPOINT 
IF Xsave2=3 THEN Done { INTERCEPT [S THE MIDPOINT 
First: IF ABSCXsave><Tol THEN Done 
Xlast =Xmid 
Ylast=Ymid 
IF Flag=1 THEN Recurse_n 
GOTO Recurse_p 
Second: IF ABSCXsave)<Tol THEN Done 
. X=Xmid 
YuYmid 
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Amid=xXlast 
Y¥mid=Ylast 
IF Flagsit THEN Recurse_n 
GOTO Recurse_p 
Negative: X!=@ 
X2=@8 
“cC¥O@_ loop =A 
CALL Xtneg (Xl, YD 
CALL X2neg(X2, Y) 
IF X2<2X1 THEN Woops 


Flag=1 ! THE RAY CROSSES THE *-RXIS AHEAD OF THE SECOND 
Yl1s-Y_ bullet ! SURFACE AND COULD POSSIBLY INTERCEPT X2NEG. 
X=A i THE SAME TYPE UF TESTS DESCRIBED ABOVE 
' IN SEARCH 2 RRE PERFORMED HERE. 
¥=9 
Delta=.@! 
Search: X1LtLsaFNxXncA) 

X2=@ 
CALL X2@neg¢X2, 711) 
IF X¥11>X2 THEN Ok ! X12 > X2max 

XLiLsA 

¥1130 


Deltay=Delta*SIN(Rho)d 
Delt ax=Delta*cCaos¢«Rho) 
Search_n: IF ABSCY¥t1)>s¥_bullet THEN Missed2 ! THE SECOND SURFACE WARS MI 


XL13=X11+Deltax 
Y¥i11sz=Y1i1+Deltay 
X22=0 

CALL X2neg(X2, 711) 
XsavezXt1-X2 


IF ABSCKsave)<=Tol THEN Victory ! FOUND THE SURFACE 
IF Xsave>=@ THEN Ok i - - : 
IF Xsave<9 THEN Search_n ! KEEP LOOKING 
Missed2: X=sFNXn¢AD ! DRAW THE RAY UNTIL Y= -Y_bullet 
Ys~-Y bullet 
GOTO Blind 
Victory: Flag2=t 
XSCXL1+xX2072 
Y=¥tt 
SUBEXIT 
Ok: Flag2=t } THE INTERCEPT OF THE RAY AND X2NEG HAS BEEN FOUND. 
Xmia=x11 ' GO TO THE BISECTION ROUTINE FOR SPEED. 
Xlast2xmid 


Ymird3¥1t 
Ylast2=Ymid 
GOTO Recurse_n 
Done: X2¢(X2+Xmidd72 
Y=Ymid 
SUBEXIT 
Skip: Xc¢Y@_loop)30 
GOTO Back 
Blind: IF Flag=1 THEN Blind_n 
Flag=2e@ 
X=A 
Y¥=@ 
acC¥@_ loop) sA 
SUBEXIT 
Blind on: Flag=2@ 
xcCY¥@_loop)=sA 
SUBEXIT 
Woops: Fl ag=30 1 THE SECOND SURFACE HAS BENT AND CROSSED THE FIRST 
X2X2 ' STOP THE RAY TRACE 
Y=¥ 
SUBEXIT 
Grin: Ai=23 
YeCA-Rid*#(TalphatTrhod’(Trho-Talpha> ! INTERCEPT OF TWO LINES 
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8340 
8350 
8360 
83790 
8380 
8390 
8400 
8410 


8790 
8300 
88190 
3820 
8830 
3840 
8850 
8860 
8379 
8880 
8890 
3900 
89190 
8920 
8930 
8940 
8950 
8969 
8979 
8980 


x=A+Y7Trho 
Xo CY¥O loop =A |! REQUIRED FOR DRAWING PURPOSES 


SUBEND 
SUB Graph 
OFTION BASE 2B 


! 
Com 
COM 
COM 
! 
CoM 
COM 
COM 
! 
CoM 
Com 
COM 
| 
COM 
1 


DEG 


INTEGER I[,J,Curve,Np,Nn,N,Ns,Nr,REAL Aneg( #2, Apos(#),AC#),21,23,24 
Alpha, Talpha, Rho, Trho,Rho_initial, Trnoi,Ph1,Tol,Norm,Al pha 
N1,N2,N3,Percent_image,Ya,Yd,Aperture,Y bullet 


INTEGER YO_loop,Nray,Add_ray,Surf_no,Flag,Flag2,N_increment,Hit_total 
INTEGER Linecount,lLinemax 
INTEGER Pselect,Hpid 


REAL Nmin,Nmax,RO_max 
Ray_trace$, Digitize$,Grin$,G$,Grinc$,Plot$S, Dates 
XC#, VC*#I, XCCHI NC HI, RO HD 


Rhoc#)>, PHic#), CC #1, Y3C#) Hit C#>d 


PRINTER IS 16 


IF 
IF 


CGrinc$2"Y")> OR (Grinc$2"y") THEN Grinc 
CDigitizes=""") OR CDigitizes2="y") THEN Digit 


Draw axes: CALL Plot 


First_ 


KZ2pos: 


X2neg: 


rinse _ 


surf: FIXED 2 
LINE TYPE 8 
Y2¥_bullet 
MOVE 0,9 
X2Y/Talpha 
DRAW X,Y 
DRAW 100,Y 
MOVE 98,0 
DRAW X,-Y 
DRAW 100,-Y‘ 
IF (Gs=2"Y"> OR (GSa"y") THEN Grin_image 
MOVE Apos¢(0),9 
FOR Y=@ TO Y_dullet STEP .O1*Y_bullet 
X2pos=0 as 
FOR I=0 TO Np 
X2pos=X2Z2postApos (1) #7*I1 
NEXT I 
DRAW X2pos,yY 
NEXT Y 
MOVE Apos(90),%8 
FOR Y=0 TO -Y_bullet STEP -.O01#Y_bdullet 
XenegzO 
FOR I=@ TO Nn 
X2neg=X2negtAneg( I >#Y*!I 
NEXT I 
DRAW X2neg,Y7 
NEXT ¥ 
EXIT GRAPHICS 
Y$="N" 
INPUT "DO YOU WANT A HARD COPY OF THE PLOT WITHOUT RAYS ? Y/“N",Y$S 
IF ¢¥$="¥") OR CYS2"y") THEN GOSUB Dump_it 
GRAPHICS 
image: LINE TYPE § 
MOVE 23,Y_bullet 
DRAW 23,-Y_bullet 


Second_image: LINE TYPE 6 


MOVE Z4,Y_bullet 
DRAW 24,-Y_bullet 
IF (G$="N") OR (GS="n") THEN First_ 


8990 Grin_image: LINE TYPE ? 


9000 


Ymz-Y¥_ dullet+.5*Y_dullet 


1S 


9010 XmeZ3+Ym/Talpha 


9820 MOVE Xm, Ym 
9a3@ Yus~-Ym 

94a Xm2Z23+Ym/Talipha 
93850 DRAW Xm, Ym 


9060 REM DRAW THE RAYS 
907@ First_: LINE TYPE 1 


9a8@a CLIP @,100,-Y_builet,Y_buliet 
9a90 I=@ 

9100 FOR Ray_first=1 TO Nray 
9112 MOVE XCID,YCI)D 

9120 DRAW XCI+1)9,YCI+1) 
9130 IzI+¢5 

9140 NEXT Ray_first 

9150 Second_: I=1 

9160 FOR Ray_second=1 TO Nray 
917@ MOVE <I>, Y¥<1> 

9182 DRAW XCI+1), CI +1) 
9199 T=I+¢5 

9200 NEXT Ray_second 


9210 IF (G$="Y¥"> OR (€G$=S"yv")> THEN Wait_ 
9220 First_image_p: I=2 


9230 Nr=-1 

9240 FOR Ray_image=1 TO Nray 

9250 Nr=Nr+3 

9260 MOVE X¢ID,YCI) 

9270 IF XC€I9<>@ THEN Ok 

9280 T2l+5 

9290 GOTO Next_ray_image 

9300 Ok: IF XC I+1)2@ THEN Reflect 

9310 DRAW XCI#1),YCI41) 

9320 [aI+5 

9330 GOTO Next_ray_image 

934@ Reflect: ! IF THE ANSWERE TO THE QUESTION IS NO, THE RAY WAS TOTALLY 
39335a ! REFLECTED AND DO NOT DRAW A LINE 

9360 ! IF A LINE IS DRAWN, THEN ABSCRHO) > 30 DEGREES 

9370 IF ¢X¢CRay_image)=@) OR CRhoCNr)=0) THEN 9400 

933 Trhos~1L*#Y¥C1>7CXe CRay_imager~-x¢ I) > 

939@ DRAW XCI-CYCID*+Y_bulleto’Trho,-Y_bullet ! RHO > 3@ DE 
GREES : 

9429 I2I+5 


9410 Next_ray_image: NEXT Ray_image 
9420 Decision: WAIT 2000 


9430 EXIT GRAPHICS 

9440 BEEP 

9435a Y$="N" 

9462 INPUT "DO YOU WANT TO PLOT TO THE SECOND IMAGE PLANE ? Y/N",Y$ 
9470 GRAPHICS 

9482 IF (Y$2"N") OR (Y$2"“n")> THEN Wait_ 

9490 Second_image_p: I=3 

9508 Nes 

931a FOR Ray_image2=1 TO Nray 

9520 Nr=Nre3 

9330 MOVE X¢CID,YCI) 

934a ‘ IF X€I)<>@ THEN Ok2 

9550 Isl+$ 

956 GOTO Next_ray_image2 

93570 Ok2: IF XCI+#1)=@ THEN Reflectr2 

9580 DRAW XC 1I+1),Y¢CI+1) 

9590 I2I +5 

9680 GOTO Next_ray_imagee 

9619 Reflect2: IF (XeCRay_t1mage2)=8) OR CRhoCNr>=3) THEN 9648 
9620 Trhos-1L#YC 1) 7CXe CRay_image2)-x¢I)> 

963a DRAW XC 1)-CYC1)+Y_bullet)>/Trho,-Y_bullet ! RHO > 93@ DE 
GREES 

9640 ~ [=I +§ 


9650 Next_ray_image2: NEXT Ray_image2 
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9669 
9679 
9689 
9698 
9788 
9718 
9728 


9928 
9939 
9949 
9958 
9969 
9978 
99388 
9999 
18890 


Grinc: 
! 
1 


GOTO Wait_ 
CALL Plot 

RISFCCLILONCLI#FSINGPHIC1I2) 
MOVE R1,C¢1)> 
MOVE R¢1),C¢1) 

FOR I=2 TO Nray 
ReCCIO“LCNCII*#SINCPh1¢I))>D 
DRAW R,CCID 
DRAW RCI), CCID 

NEXT I 

! SETGU | 

LINE TYPE 1 ! OPERATOR TO STUDY UNTIL READY TO 

LDIR @ 

MOVE 2,2 

CSIZE 2 

LABEL "PRESS CONT" 

CSIZE 1374.54 

SETUU 

BEEP 


THIS ROUTINE PRESENTS THE PLOT TI) THE 
CONTINUE 


EXIT GRAPHICS 


SUBEXIT 


Digit: 


18610 - 


198290 
18838 
18049 
19858 
18868 
18078 
18889 
18898 
18188 
18119 
18120 
191390 
18148 
18158 
18168 
18178 
18189 
186198 
19208 
18218 
182290 
18238 
19248 
18258 
19268 
18270 
18288 
18299 
18300 
18319 
183290 


GRAPHICS 
POINTER 23,9 
DiGirece 23, 1 
LINE TYPE 5 
MOVE 23,Y_bullet 
DRAW 23,-Y_bullet 
SETGU 
LDIR @ 
LINE TYPE 1 
LORG § 
CSi2E 2. 
Centerx=72.35 ! CHANGE IN Laxes also 
MOVE 1.S5*#Centerx,S5 
LABEL USING 108463 23 
IMAGE “Image Plane 
SETUU 
CSIZE 1574.54 
WAIT 2580 
EXIT GRAPHICS 


: inches" 


",DD.DD," 


SUBEXIT 


Dump _ 


it: PRINTER IS @ 
PRINT CHRS$C27)0&"&100T" 
DUMP GRAPHICS 
PRINT CHRS$(270&"%136T" 
PRINTER IS 16 


~ RETURN. 
SUBEND 
SUB Plot 
OPTION BASE @ 
1 


COM 
COM 
COM 
' 
COM 
CoM 
COM 
! 
COM 
COM 
COM 
at 


COM 


INTEGER I[,J,Curve,Np,Nn,N,Ns,Nr,REAL Aneg(#),Apos(4#),AC#), 21,23, 24 
Alpha, Talpha, Rho, Trho,Rho_initial, Trhoi,Phi, Tol,Norm,Alphae 
N1,N2,N3,Percent_image, Ya, Yb,Aperture,Y bullet 


INTEGER Y8_loop,Nray,Add_ ray, Surf_no,Flag,Flage,N_increment,Hit total 
INTEGER Linecount,Linemax 
INTEGER Pselect,Hprbd * 
REAL Nmin,Nmax,RO_max ‘ 

Ray traces, Digitizes, Grin$s,G$,Grinc$,Plots, dates 
KCH#I, YC HI, XCCHINC #),RO HD 


Rho(#),PhiC#>, CCH, Y3CR),HIt Ce 
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10338 ! 


18340 ! THE ORIGINAL VERSION OF THIS ROUTINE IS LOCATED IN THE HP-9345 
18358 ' LIBRARY TAPE No. TWO SER: 39845-10205 PROGRAM "REGPLT" 

18360 ! 

18372 | 

18380 ' FNMAX AND FNMIN HAVE BEEN MADE INTO SUBROUTINES 

18390 ' 


10400 Set_up: IF <Plot$="P") OR (Plot$="p") THEN P9872a 
10410 Crt: PLOTTER IS 13, "GRAPHICS" 


10422 GOTO 10449 

10436 P9872az PLOTTER IS Pselect,Hpib, "9872h" ‘ 

18440 GCLEAR 

1845@ LIMIT 0,184,9, 142 ' ALL UNITS IN MILLIMETERS 

10469 LINE TYPE 1 

18472 LDIR @ 

18480 LORG § 

10490 

19S50@ DATA -2,-1,1,2 

185192 READ Um, Dm, Md, Mu 

18@S2e DATA .39794,.69897,.87505 

18530 READ Log2,Llog5,Llog? 

10542 ! 

1855@ IF (Grincs="Y¥") OR CGrinc$="y") THEN Grine 

18560 IF (G$2"¥") OR (G$2"y") THEN Grin 

18870 IF CDigitizes=""") OR (Digitizes="y")> THEN Digit 

18S80 IF (Ray_traces2"¥")> OR (Ray_traces="y") THEN Ray 

10592 l 

10600 Ray: Xmin=XorgzYorg2Q 

18618 Xmax=1Q 

180620 Ymax2Y¥_bullet 

18630 Ymin=-Ymax 

18640 PRINT PAGE," Xmax is the maximum ltength along the GLM axis which you" 
18682 PRINT “want to be displayed. " . * 

10660 PRINT LINC1)," A rule of theumb is to piek’a typical value of X¢ (the 
x-intercept” i. at 

10670 PRINT “from the printed output for the ray trace and add one inch to" 
18680 PRINT "that value. For example: if the majority of the Xe values liste 
d“ 

18690 PRINT “have values around §.6, then key in 6.6 and PRESS CONT." 

10700 Rayl: INPUT "WHAT IS THE VALUE OF Xmax (DEFAULT VALUE IS 10.@ INCHES > ?",xX 
max 

107198 IF Xmax<=Xmin THEN BEEP 

10728 IF Xmax<=Xmin THEN DISP "Xmax MUST BE > Kmin = 3. PLEASE RE-ENTER 
Xmax, ” 

10730 IF Xmax<=Xmin THEN WAIT 2502 

10740 IF Xmax<sXmin THEN Rayl 

10750 Ray_scale: LOCATE 15,130,25,100 ! ALL UNITS IN GDU’S 

19768 GOSUB Same 

10770 =6! SCALE Xmin-.S#xfudge, Xmaxt.S*ABSCYticd,-Y_bullet-.25*ABS(Ytic), 
Y_bullet+.2S*#ABS<Ytic) 

18788 SCALE Xmin-.S#ABSCY¥ticd, Xmax+. S#ABSCYticd,-Y_bullet-.25*ABS (Yt i 
c),Y_bullet+.25#ABS(/ticd 

10790 ! CLIP Xmin-.S#Xfudge, Xmax+.S#ABSCYticd,-¥_bullet-.25*ABS(Yticd, 
Y_bullet+.25#ABSCYtic) 

188089 CLIP Xmin~.8#ABSCYtic), Xmax+.S#ABSCYticd, -Y_bullet—.2S5*ABSCYt i 
c),¥_bullet+.25*ABS(Ytic >) 

10810 GOSUB Same_axes 

18822 CLIP Xmin,100,-Y_bullet,Y_bullet 

10832 SUBEXIT 

1084@ Digit: LOCATE @,130,30,100 ! ALL UNITS IN GDU’S 

1085 Amax=V¥_ dullet 

18860 Xmin=-Xmax 

19870 Xorg=Yorg2d 

18880 Ymax2l 

18892 Ymin=@ 

18900 ~ GOSUB Same 


10916 Digiti_scale: SCALE -Y_bullet-.15#ABS(Ytic)d,Y_ bullets. 1S#*ABS(Ytic), -. 15S#AB 


oS 





SCY¥ticd,l+.15S#ABSCYticd 
CLIP -Y_bullet-.15*ABSCYtic®,Y Dullet+. 1IS*#ABS(Yt1¢),-.15#AB 
erertic) 1+. 15*ABSCYtic >) 
: GOSUB Same_axes 


10920 


10930 
1809490 
18959 
18960 
18979 
19980 
10990 
118606 
11010 
11928 
11830 
11040 
11858 
11660 
119070 
11889 
11898 
11100 
11116 
11129 
11130 
11149 
111590 
11160 
11170 


+4%(¢CTestxtic>=LogS) AND (Testxtic<=log7)+5.5*#¢(Testxticr>log/>) 
Ytic=H=lO*cINTCLyda—Lo*eClel. Sec cTestytic>Log2>) AND 
+4e¢CTestytic>=Log5) AND (Testytic<=log7) +6. 5¥%(Testyticr>Log7)) 


11180 


11198 


11200 Same axes: 


Grin: 
Grine 


Grine 


Same: 


Ticmarks: 


SUBEXIT 
GOTO Ray 


; LOCATE 18,133,280, 191 


XorgzYorg= 
GOSUB Min_c 
GOSUB Max_c 

Ymin=Cmin=eMine 

Ymax2Cmax=Maxc 
GOSUB Min_r 
GOSUB Max_ur 

X<max=Maxr 

Xmin=Mine 

_scale: GOSUB Same 


SCALE Xmin, Xmax+ABSCXticd, Ymin, YmaxtABS(/ric> 
CLIP Xmin,Xmaxt+RES¢(Xticd, Ymin, *max+ABSCYtic) 
GOSUB Same_axes 


SUBEXIT 
Lx®LGT¢Xmax-Xmin) 
Ly=LGT¢(Ymax-Ymin)d 


Kfudge=. 20#( Xmax-Aamin?d 
Y¥fudge=.20#¢( fmax-Ymin? 
Test xtic=FRACTCLx3+¢(Lx<@) 
Testytic=FRACTCLyI+¢CLy<@)d 


ALL UNITS IN GDU’S 


KticBla*cInNTCLxd ~Lr*eCl el. S¥eccTestxticr>lLog2) AND ¢Testxtic<LogsS)> 


RETURN 


Yamin, Ymax, Minn, Maxx? 


CALL Laxes(Xtic,Ytic, 


CTestytic<Logs) >) 


Xorg, Yorg,Xmaj,Ymaj,Minticsize,cmin,xmax, 


11430 SUB Laxes(Xtic,Ytic, Xorg, Yorg, Xmaj,¥maj,Minticsize, Xmin, Xmax, Ymin, (max, Min 


11218 RETURN 

112260 Miner: Minr2®R¢(@>d 

11239 FOR [=1 TO Nray 
11240 Minr=MINCMinr, RCI) 
11250 NEXT I 

11269 RETURN 

112708 Max_or: Maxr=R(@) 

11280 FOR {f=1 TO Nray 
11296 MaxraMAxX (Maxr,RCI>) 
113900 NEXT I 

11310 RETURN 

11326 Min_c: Minc2C¢@) 

11330 FOR [21 TO Nray 
11348 Minc=MINCMine, CCI) 
113358 NEXT I 

11368 RETURN 

11370 Max_c: Maxc=C¢@) 

11389 FOR [#1 TO Nray 

11398 Maxc=MAX(Maxc,CcI)) 
11400 NEXT I 

11410 RETURN 

11420 SUBEND 

n, Maxx) 

11440 OPTION BASE Q 

11480 I 

11460 COM 

11470 COM 

11480 CoM 

11499 ' 

113500 COM 

1 

11319 com 


INTEGER I,J,Curve,Np,Nn,N,Ns,Nr,REAL Anegt*#),Apos(4#),AC#),21,23,24 
Ripha, Talpha, Rho, Trho,Rho_initial, Trho1,Ph1,Tol, Norm, Alphae 


N1,N2,N3,Percent_image,Ya,Yb,Aperture,Y bullet 


INTEGER YO_loop,Nray,Add ray, Surf_no,Flag,Flag2,N_increment,Hit tota 


INTEGER Linecount,Linemax 
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11520 
11530 
11549 
11535e 
11562 
11572 
11582 
1159 
11609 
11612 
11620 
11639 
11642 
1165 
11662 
11672 
11689 
11699 
11726 
11718 
11729 
11732 
11746 
11750 
11760 
11772 
11788 
11792 
11899 
11816 
11826 
11839 
11840 
11859 
11862 
11870 
11880 
11892 
119232 
11919 
11926 
11930 
11940 
11950 
11960 
11976 
11989 
11999 
12909 
12012 
12922 
12030 
12940 
12050 
12069 
12072 
12982 
12090 
121909 
12116 
12120 
12139 
12149 
12159 
12162 
12179 
12189 


COM INTEGER Pselect,Hpid 
i 
COM REAL Nmin,Nmax,R@_max 
COM Ray _trace$, Digitizes, Grins, G$,Grincs,Plots, Dates 
COM X(#)0,YC#), XOC 4D NCH, RO ED 
' 
COM Rhot#), Phit#>,C6#>,Y3C#) Hit Ce) 
i 
DEG 
LINE TYPE 1 
LDIR 9 
LORG $ 
IF ¢Xmin>=Xmax) OR CYmin>=¥max>) THEN SUBEXIT 
GRAPHICS 
Xfudge=.02#( Kmax=-Xmin?) 
Yfudge=.02#( Ymax-Ymin?) 
Xmaj=t 
Ymaj=t 
Minticsize=e 
i 
IF ¢Grines="Y") OR CGrinc$2"y") THEN Grinc 
IF ¢G$="¥") OR (GS$2"y") THEN Grin 
IF ¢Digitizes="Y¥")> OR CDigitizes="y")> THEN Digit 
IF (Ray_trace$2"¥") OR (Ray_traces="y") THEN Ray 
' 
Grine: LINE TYPE 3 
GRID Xtic,Ytic,xXorg, Yorg,Xmaj,%¥maj,2*Minticsi ze 
LIWE TYPE 1 
FRAME 
GOTO Labelx_grine 
Grin: GOTO Ray 
meprgit.e AXES .1,.1,9,9,1,1,2 
Digit: AXES Xtic,.1,0,0,1,1,2 
GOTO Labelx_d 
Ray: AXES Xtic, Ytic, WoPecicec dnkd. Yead, Mint ichize 
Labelx: LDIR 9a 
LORG 8 
FOR A*Xorg TO xmax STEP ABSCRticd 
MOVE A, Yorg-Yfudge 
IF A=@ THEN LABEL USING 11929;A 
IMAGE #,K 
IF A=@ THEN GOTO 119628 
LABEL USING 11959;A 
IMAGE DDD.D,K 
NEXT A 
Labety: LDIR @ 
LORG 8 
FOR Az-Y_ bullet TO Y_bullet STEP ABSC(Ytic> 
MOVE Xorg-xXfudge,A 
IF A2@ THEN LABEL USING 11929@5A 
IF Az@ THEN GOTO 12848 
LABEL USING 119598;A 
NEXT A 
GOTO Label_ 
{ 
Labelx_d: LDIR 92 
LORG 8 
! FOR Az-Y_bullet TO Y_bullet STEP .1 
FOR Az-Y_ bullet TO Y_bullet STEP ABS¢(xXtic)d 
MOVE A, Yorg-Yfudge 
IF A=@ THEN LABEL USING 11929;A 
IF A#@ THEN GOTO 12159 
LABEL USING 119590;A 
NEXT A 
Labely di LDIR @ 
: LORG 8 
FOR A=@ TO Ymax STEP .1 


oe 





12199. 
12200 


12210 
12220 
12238 
12240 
122560 
12260 
12278 
12280 
12290 
12300 
12316 
12320 
12338 
12348 
12350 
12360 
12370 
12380 
12390 
12400 
12418 
12420 
12430 
12440 
12450 
12460 
12478 
12480 
12490 
12500 
12510 
12526 
12530 
12548 
12550 
12560 
12576 
12588 
12596 
12688 
12619 
12628 
126386 
12648 
12659 
12668 
12678 
12688 
12698 
12700 
12718 
12728 
12738 
12748 
12758 
12768 
12778 
12788 
12790 
12800 
12810 
12820 


Labelx_ grinc: 


Labely_grinc: 


Label : 


MOVE Xorg-Xfudge,A 
IF A=@ THEN LABEL USING 11926;A 
IF A=Q@ THEN GOTO 12239 

LABEL USING 119590;A 


NEXT A 
GOTO Label 


i 
LDIR 30 
LORG 8 
FOR A=Xorg TO Xmax+ABSCAtic>? STEP ABSCKt1¢) 
MOVE A, Yorg-Yfudge 
LABEL USING 12310;A 
IMAGE #,K 
NEXT A 
LDIR 9 
LORG 8 
FOR A=Yorg TO Ymax+ABS¢(Ytic> STEP ABSCYticd 
MOVE Xorg-Xfudge,A 
LABEL USING 123195A 


NEXT A 
i 


LDIR © 


LORG 5S 


MOVE -10%#Xmax,¥ 
LABEL 


“RESET .CR/LF* 


SETGU 
USlZe v2.'s 


Ray _ label: 


Centerx272.5 | 


IF (Grinc$="¥"> OR (Grinc$="y"> THEN Grinc_1l abel 

IF ¢G$2"¥") OR (G$2"y"> THEN Grin_]! abel 

IF (Digitizes="¥"> OR CDigitizes$s"y"> THEN Digit_label 
IF (Ray _traces23"¥") OR (Ray_trace$="y"> THEN Ray _ label 
1 


CHANGE IN Graph ALSO 
Centery262.5 
MOVE 1.S5#Centerx,13 
LABEL USING 12550;Nray 
IMAGE “Number of Rays : ",K 
MOVE .S#Centerx,? 
LABEL USING 12580; Rho_initial 
IMAGE “Incident Ray Angle : ",3D.DD," 
MOVE .S#Centerx,S 
LABEL USING 12610;N2 
IMAGE “"n2 : ",D.DDDDD 
MOVE 1.5#Centerx, 9 
LABEL USING 126403; Aperture 
IMAGE "Aperture : ",D.DDD," 
MOVE Centerx, 20 
LABEL "Distance Along the GLM Axis Cinches>" 
1 
CSICE 3 
MOVE .S#Centerx,!3 
LABEL USING 127103 Curve 
IMAGE “Curve Number : “,K 
LDIR 998 
MOVE 1.5,Centery 
LABEL “Radial Distance From the Axis Cinches>" 
LDIR © 
CSIZE 154.54 


GOTO Labet_end 
1 


deg" 


inch" 


Digit _label: Centerx=65 


12830 | 


12840 


Centery2zs65 
MOVE 1.S5#Centerx,13 
LABEL USING 125503; Nray 
MOVE .S#Centerx,93 
LABEL USING 12856;Hit_total 


15'S 





12850 
12860 
12370 
12880 
12890 
12900 
12910 
12920 
12930 
12940 
12950 
12960 
12970 
12980 
12990 
13000 
13010 
13020 
13030 
13040 
13850 
13060 
13070 
13080 
13090 
13100 
13110 
13120 
13130 
13140 
13150 
13160 
13170 
13180 
13190 
13200 
13210 
13220 
13230 
13240 
13250 
13260 
13270 
13280 
13290 
13300 
13310 
13320 
13330 
13340 
13350 
13360 
13370 
13380 
13390 
13400 
13418 
13420 
13430 
13448 
13450 
13460 
13470 
13480 
13499 
13500 
! 


IMAGE “Number of Hits on the Image Plane : ",K 
MOVE 1.S5#Centerx,9 

LABEL USING 12880;Percent_image 

IMAGE "% of Ravs to Image Plane =: ",3D.DD 
MOVE 1.S5#Centerx,5 é 

LABEL USING 129108;23 

IMAGE "Image Plane : “,DDD.DD," inches" 
MOVE .S#Centerx,5 

LABEL USING 12940;N_increment 

IMAGE "Number of Increments (6,1.1]2 3: “,K 

i 

CSIZE 3 
MOVE Centerx, 29 

LABEL "Normalized Number of Hits vs Distance from the Axis" 
MOVE .S*«Centerx,13 

LABEL USING 12710;Curve 

IMAGE "Curve Number =: ",K_ 

GOTO Label _end 

\ 


Grin_label: Centerx=72.5 
Centery=62.5 
Coles. 2.5 
MOVE .S#Centerx, 13 
LABEL USING 13090;N1 
IMAGE “nit : ", DD. DDDDD 
MOVE .S*Centerx,9 
LABEL USING 13120;N3 
IMAGE “n3 : “,DD.DDDDD 
MOVE 1.S5*#Centerx,13 
LABEL USING 13150;Alpha 
IMAGE “Alpha : “,DD.DD," degrees" 
MOVE 1.S*«Centerx,? 
LABEL USING 13180;Nray 
IMAGE “Number of Rays : ",K 
CSIZE 3 
MOVE Centerx,20 
LABEL "GRIN TRACE" 
LDIR 90 ; , 
MOVE 1.5,Centery 
LABEL “Radial Distance From the Axts ¢ tnches )" 
GOTO Label_end 
i 


Grinc_label: CSIZE 3 
LORG 5 
LDIR @ 
Centerx=74 
Centery264 
MOVE Centerx,S 
LABEL “Radius From the Origin Cinches)" 
LDIR 90 
MOVE 1.5,Centery 
LABEL “Gradient Index Constant : CCr) Cinches>d" 
' ee 
Label_end: CSIZE 1574.54 : 
LDIR 90 
LORG § 
SETUU 
SUBEND 
SUB Xtpos¢X, Y) 
OPTION BASE @ 
i 


COM INTEGER I,J,Curve,Np,Nn,N,Ns,Nr,REAL Aneg(*),Apos(#),AC#),21,23,24 
COM Alpha, Talpha,PRho,Trho,Rho_tnitial, Trnoi,Pht, Tol,Norm,Alphae 

COM N1,N2,N3,Percent_image, Ya, Yb, Aperture, Y_bdullet 

' 


- COM INTEGER YO_loop,Nray,Add_ ray,Surf_no,Flag,Flag2,N_increment,Hit tota 
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13510 
13520 
13538 
13548 
13558 
13560 
13572 
13538 
13590 
13600 
13610 
13628 
13630 
13648 
13658 
13660 
13672 
13688 


13690 
13700 
13710 
1372 
13730 
13740 
13750 
13768 
13770 
13780 
13790 
13980 
13810 
13920 
13930 
13840 
13850 
139860 
13970 
13990 


139890 
13908 
13918 
13920 
13938 
13940 
13950 
13960 
13970 
13990 
13990 
14000 
14010 
14028 
14032 
14040 
14850 
14860 
14879 
14890 
14890 
14100 
14118 
14128 
14138 
14142 
14150 


i 
DEG 
DEF FNY1¢(Y)=Y*Talpha’<Talpha-Trho>) ! FINDS THE Y-VALUE OF THE INTERCEPT 
1 OF THE RAY AND THE FIRST SURFACE 
DEF FNX1LCY)2Y/Talpha ! FINDS THE X-VALUE OF THE INTERCEPT OF THE RAY 
! AND THE FIRST SURFACE 
IF Surf_no#2 THEN Woops 
YSFNY1CY) 
Woops: XBFNKICY) e 
SUBEND 
SUB Xlneg(X, YD 
OPTION BASE 9 
i 


COM INTEGER I,J,Curve,Np,Nn,N,Ns,Nr,REAL Aneg(*#) sApos(+), AC), 21,23, 24 
COM Alpha, Talpha, Rho, Trho,Rho_initial,Trho},Phi,To),Norm,Alphaz 

COM N1,N2,N3,Percent_image,Ya,Yb,Aperture,/_ bullet, 

i 


COM INTEGER Y9_loop,Nray,Add_ray,Surf_no,Flag,Flag2,N_increment,Hit_tota 


DEG 
Alphan2-1#Alpha 
Talphan=TANCRI] phan> 
DEF FNY1¢CY)=Y#Talphan/’(Talphan-Trhod °~! FINDS THE Y=YALUE GF THE INTERCEPT 
! OF THE RAY AND THE FIRST SURFACE 
DEF FNKICY>2#Y/Talphan ! FINDS THE X-YALUE OF THE INTERCEPT OF THE RAY 
1 AND THE FIRST SURFACE 
IF Surf_no#2 THEN Woops 
YSFNYICY) 
Woops: X2FNX1 CY) 
SUBEND 
SUB Dialogue 
OPTION BASE 9 
1 


INTEGER I,J,Curve,Np,Nn,N,Ns,Nr,REAL Anegt 4), Apos¢#),AC#), 21,23, 24 
Alpha, Talpha, Rho, Trho,Rho_initial, Trhoi,Phi,Tol,Norm,Alphad 
N1,N2,N3,Percent_image, Ya, Yb,Aperture, Y_ bullet 


COM 
COM 
COM 
l 

COm INTEGER YO_loop, Nray,Add_ray, Surf_no,Flag,Flag2,N_increment,Hit_tota 
COM 
COM 
! 

COM 
COM 
COM 
1 


con 
t 


INTEGER Linecount,Linemax 
INTEGER Pselect,Hpib 


REAL Nmin,Nmax,R@ max 
Ray_traces,Digitizes,Grin$, GS, Grinc$,Plots, Dates 
RCH, VY CHD, XC CHI NC HD, RCD 


Rhot*#), Phic*#>,CC#, Y39C#), Hit Ce) 


DEG 

Initialize _top:Alpha=2! 
Talpha2TANCAl pha) 
Rho_initial=@ 
Trho_i#TANCRho_initial> 
i 
Tol2. 0000! 
23224250 
Nta=N321 
N221.5 
' 


IN ORDER TO OUTLINE THE APERTURE AN EXTRA RAY 
MUST BE ADDED IF Ya # 9 


Nray210  ! 
Add ray=@ |! 
Ya=@ 

Ybx¥_ bullet 
AperturezYa-Yb 
I 


Y_bullet=t.1 
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14168 
14178 
14180 
14190 
14200 
14219 
14229 
142390 
14248 
14258 
142698 


142798 
14280 
14299 
14388 
14318 
14328 
14339 
14349 
14358 
14368 
14378 
14389 
143998 
rm“ 
14408 
c * 
14418 


(GLM)." 


14428 
<" 
14438 


riables* 


14449 
144590 
14468 
144798 
14489 
14499 
14500 


1 used" 


14319 
14329 
143390 
14349 
143390 
14360 
i” 
14378 
n"* 
143890 


oblem. * 


143986 
14690 
will 

14618 
14628 
24 2 

14639 
14646 
14650 


arrive" 


14668 


14678 
re * 


PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 


PRINT 
PRUSE 


N_increment=100 
1 
~“ Linecount 28 

Linemax=46 

1 

Nmax=4 

Nmin=2 
Ym2sC1.05#/7 bullet72)*2 ' THE 1.05 IS RF FUDGE FACTOR TO 
Am22¢C1.85#Y_bullet’(C2*#Talphad>*2 !PREVENT THE RADIUS FROM 

R@_max=SQR¢CXm2+Ym2) | BECOMING TOO SMALL AND CRUSING A 

I NUMERICAL ERROR IN THE INDEX SUBROUTINES 


Pselect=7 
Hpib=5 
{ 


Grins2"C" 
G$="N" 

Grinc $2"N“ 
Plot s$a"C" 
Digitizes2"N" 
Dates=x" ily 


*z%* TEMP *«#*# 
GOTO Alpha 
**%% TEMP *«* 


PAGE, ” The following drawing illustrates the optical proble 
“which this program attempts to solve; focousing monochremati 
“light rays through a conical lens for a Gun-Launched-Missi le 
os The picture is also labeled showing the various quantitie 


"Please study the picture and become familiar with it. The va 


"will be explained as they appear in the program. " 
LINC2), "PRESS CONT" 


CALL Picture 


PRINT 
PRINT 
PRINT 


PRINT 
PRINT 
PRINT 
PRINT 
PAUSE 
PRINT 


PRINT 
PRINT 


PRINT 
PRINT 


PRINT 
PRINT 


"324; "inches." 


PRINT 
PAUSE 
PRINT 
PRINT 


PRINT 


PAGE, " ci is the intercept of the second surface andj the" 
“the GLM~axis. Therefore, the value of 21 is APOS(B)." 
LINC1), "NOTE: Apos(@>) 1s the constant term in the polynomia 
= to describe the second surface of the lens in the “ 
- upper half-plane." 

The Cmin,max) values of 21 are (8,infinity] inches. * 
LINC2),"“PRESS CONT* 

PAGE, “ There are two planes used as image planes. The first 
“located at X=23 (default value = “53233; "“inches). This locatio 
“is programmable, according to the needs of the particular pr 


"You key in the new location when locating the position of “ 
“maximum ray density, or when a new run is begun. Directions 


"be provided at the appropriate time." 
Eline? 5” The second image plane is permanent, located at X= 


LINC2),"PRESS CONT" 
PAGE," This program will trace mochromatic light rays which 


“at the first surface parallel or at an angle to the GLM axis 


“Non-axial rays approach the GLM from ’above’, for all rays a 





14680 
14698 
147288 
14710 
14728 
14738 


urface” 


14748 


ace normal." 


14758 


face normal." 


14760 
14778 


14788 
14798 
14888 


rface." 
14820 PRINT 
14830 PRINT 
14840 PRINT 


ia 
14858 
14862 


PRINT 
PRINT 


14870 PRINT 
14880 PRINT 


14898 


PRINT 


PRINT 
PRINT 
PRUSE 
PRINT 
PRINT 
PRINT 


PRINT 
PRINT 


PRINT 
PRINT 


PRINT 
PRUSE 


PRINT PAGE,"The sign convention 
14810 PRINT LIN(1)," 


"initiated in the upper half of the meridian plane." 
LINC2), "PRESS tCONT" 


PAGE, “ The program uses Snell’s Law without approximation." 
"The appropriate variables are:" 

LINCL>, * 1) Norm = d¥/“dxX = stope of the normal to the s 
te 2) Thetai = angle of incidence with respect to the surf 
- 3) Thetar = angle of refraction with respect to the sur 
= 4) Rho = angle of the ray with respect to the GLM-axis” 
= Csubscripts indicate the region the ray is ind 
LINC2), "PRESS CONT" 


las 
1) the origin is placed at the vertex of the first su 
to the right of the origin." 
above the origin (Y-axis)?." 
out of the meridian plane (screen 


Ca) positive 
(Bb) positive 
Cc) positive 


2) distances: 


Cie. aright hand system.)* 
slope = Alpha2 is POSITIVE for counter-clockwize" 
rotation from the GLM~axis to the ray" 
unprimed = object space." 
primed = image space." 


3) angles: 


4> symbols: 


194900 PRINT LINC2),"PRESS CONT" 
14910 PAUSE 


14928 Alpha:PRINT PAGE, " Ripha is the angle of inclination of the " 

14938 PRINT “FIRST surface with respect to the GLM-AXIS" 

149428 PRINT LIN‘¢3), ” The current value of ALPHA is";Alpha;s "degrees" 
14930 INPUT "WHAT IS THE NEW VALUE OF ALPHA (DEGREES)?",Alpha 

14968 Index:PRINT PAGE, " The lens system is assumed to be opersting in air." 
14979 PRINT “Therefore the first index of refraction = nli= 1.880000" 

14980 PRINT LIN¢1),” It is assumed that nl < n2 for the homogeneous and gra 

dient cases.” 

14998 PRINT LINC), " You are free to choose any values for n2 and n3 for the 
homogeneous case. " 

135800 PRINT LINC2),"PRESS CONT" 

135818 PAUSE 

13828 PRINT PAGE, “ The program has the capability to use a gradient index of 
refraction (GRIN). " 

13838 PRINT “Two GRIN subroutines are available:" 

15048 PRINT LINC1L),"™ 1) Parabola : the index of region 2 ‘(the lens) yv 
aries " 

1358350 PRINT " aS a parabola from a min at the vertex" 
135860 PRINT ° to a maximum Cat a radius specified by yo 

uw" 

1358798 PRINT * then down to a value determined by the “ 
135680 PRINT " top of the GLM" 

13898 PRINT " The equation is C n(rd = k *® rv2 J" 

13100 PRINT LINC1L), “ 2) Circle 3: the index varies as a circle whose ¢ 

enter is located” 

135118 PRINT " at a specified radius from the origin" 
135120 PRINT " The equation is C n(r>d = SQR¢ RO max*2 + re 

ze 1” 

FoLse PRINT LINC1),"The radius (for circle) has a minimum value which is half 
the 

13140 PRINT “length of the first surface; approximately ";R@_max;" inches.” 
13159 PRINT LINC1)," You are free to choose any value for n3 for the GRIN ca 
se.” 

13160 PRINT LINC2),"PRESS CONT” 

13178 PAUSE 

135180 G$="N" 


15199 


INPUT "ARE YOU GOING TO USE GRIN ? Y/N",G$ 


moi 





15200 
15210 
152260 
15239 
15249 


circle.)>" 


15250 
15260 


152790 


max; ">" 


15280 
ns 

15290 
15300 
15310 
15320 


INPUT 


IF (G$="N") OR (GS=2"n") THEN N2 


15338 N2: INPUT " 


15340 N3: INPUT 


WHAT 


PRINT PAGE," Required data for grin ;:" 

PRINT LIN¢C1), " 1> Nmin 2 minimum value of the index or" 

PRINT " of refraction ¢ default = “SNmin;")" 

PRINT “ 2> Nmax 2 maximum value of the index (not required for 

PRINT € Default = "3Nmax;")" 

PRINT " 3> RO_max = radius from the origin at which the maximum 
PRINT " value of the index occurs. ¢ MINIMUM = "SRO 
INPUT “WHICH ONE : CIRCLE ¢C> OR PARABOLA (P> ¢ DEFAULT = C ) ? C/P",Gri 
INPUT "WHAT IS Nmin ?",Nmin 


IF (Grins="C") OR (Grin$="e") THEN N3 
"WHAT IS Nmax ?",Nmax 

INPUT "WHAT IS RG@_max ?",RG_max 

'S n2 ?",N2 

"WHAT IS n3 ?*,N3 


15359 IF €G$="N") OR (G$="n")> THEN Rho_initial 

15368 PRINT LINC2)>,"NOTE: When the parameter data is printed, the values 

of * 

13370 PRINT “ the index at the first surface intercept will be " 

15389 PRINT * printed in the folowing manner: " 

15399 PRINT * n¢8> 2= 2.3543 n¢9> = 2.3567 n¢t@> = 1.9875" 
154980 PRINT " The subscript indicates the number of the ray intercepti 
ng" 

13410 PRINT " the first surface." 

135420 PRINT LINC2), “PRESS CONT" 

15430 PAUSE 

15440 Rho_initial: PRINT PAGE, " The rays incident on the first surface are “* 
15450 PRINT "initially assumed to be parallel to the X-axis. " 

154690 PRINT LINC2)," If you want to trace rays which are at an ang 
ie.” 

15472 PRINT “other than zero (0) degrees with respect to the X-axis, 
“ 

15480 PRINT "then key in the value of the angle (in degrees) with " 
15490 PRINT "respect to the X-axis." 

15500 INPUT "RHO ?",Rho_initial 

1535190 Rho_initial=-1L#ABS¢(Rho_initial> 

15520 Trhoi=TANCRho_initial) 

15538 Y_bullet: PRINT PAGE, " The GLM is assumed to be assumed to be symmetric 
about the" 

15540 PRINT “longitudinal axis. The maximum value of the GLM radius is 
| 

15550 PRINT “called Y_bullet whose default value is “3Y_bullet;" inche 
s.” 

13560 PRINT LINC2>,” If your design requires a different value, plea 
se" 

155798 PRINT “enter that value now." 

15580 INPUT "Y_BULLET (INCHES) ?”",Y_bullet 

15590 Yos¥_bullet 

13600 Aperture: PRINT PAGE, " The aperture is the difference in radial distance 
from the GLM axis” 

15619 PRINT “projected onto the first surface,into which light is allo 
wed to enter” 

135620 PRINT “the GLM optical system. The parameters are ;°”" 

13630 PRINT LIN(C1)," 1> Ya 3: the minimum Y-rvalue of the aperture" 
13640 PRINT "* (default value ="SYajs"inch >" 

13650 PRINT * 2> Yb : the maximum Y-value of the aperture“ 

15669 PRINT * (default value 2"s3Yb;"inch> and is < Y_bulle 
woe 

135670 INPUT “WHAT IS Ya CINCHES) ?",Ya 

15680 INPUT “WHAT IS Yb CINCHES) ?",Yb 

15690 | IF Ya>sYb THEN BEEP 

157089 IF Ya>2Yb THEN PRINT "Ya must be < Yb. Please enter again." 
15710 IF Ya>2Yb THEN GOTO 15670 
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15729 
15739 


15749 Nray: 


m usless 


15759 
15769 
15779 
15789 
157930 


15800 Digitize_: 


PRINT 
INPUT " 
Nray2INTCABS¢CNray) > 


Aperture=zYb-Ya 


IF Ya<o@ THEN Add_ray=l 
PRINT PAGE, " 


The program will trace"“;Nray;" rays through the syste 


“you specify another value" 


How many rays do you want the program to trace?",Nray 


IF Nray<lt THEN Nray=18 
IF ¢G$="Y") OR CGS="y") THEN Date 


PRINT PAGE, " 


The interval between (8 < Y ¢ 5 "5¥_Bullet; “> 


and ¢(-",Y¥_bullet;" < ¥ < 8) have been divided" 
PRINT “into";N_increment;" increments to determine ray dJensity. 


15819 


158290 
lease 
1§839 
15849 
158590 
158690 
153879 
13889 
15890 
15909 
gree " 
15919 
stem ] 
15920 


lities 


15939 
15949 
15959 
15969 
15979 


15989 
15999 
T18 “ 
169090 
16019 
16920 
16939 
160498 
169059 
16069 
16978 
160380 
169099 
16190 
16110 
16129 
16139 
16149 
16159 
16169 
16170 
16189 
16190 
1629090 
16219 
16229 
16239 
16249 
162590 
162690 


86104 
16278 


06104 


PRINT LINC19,"If you want to change the number of increments, p 


do so now." 


PRINT LINC2),"The amximum number of 


increments is 190908," 


INPUT “NUMBER OF INCREMENTS ?",N_ increment 


No 


increment=INTCABSCN_ increment?) 
IF N_increment<1 THEN N_increment=108 


Date:PRINT PAGE 


Coef_data:PRINT PAGE 


owe cm cam fete cam 


eam cam cam cam com 


INPUT 
Start: 


“What 


is today’s date ?",Date$ 


IF (G$a"Y¥") OR (GS="y") THEN Gymnastics 


PRINT 
PRINT 
PRINT 


PRINT 
PRINT 
PRINT 
PRINT 
PRINT 


PRINT 
PRINT 


PRINT 
PRINT 
PAUSE 


DATA 1 
DATA 
DATA 
DATA 
DATA 


DATA 
DATA 
DATA 
DATA 
DATA 
{ 


DATA 
DATA 
DATA 


DATA 


PAGE," The second surface must be input as polynomial of de 


“16 or less, defined as a function of Y CC x=fCy) for (x,y) sy 


"If you have not fit a curve to your data, then go t3 the uti 
y g 


“library,tape two and load REGD. " 

"NOTE 3: 1% Use printer code @ for a hard copy" 

: 2) Invert the K and Y values for the positive branch" 
c 3) Key in ¢€Y,-K) for the negative branch" 

LINC1>, "NOTE : The negative branch is the second surface in 





> the lower half plane" 

DIn@i>, " If this is the case, then PRESS STOP, then REWIND 
"fit your curve using the utilties library." 

LINC1>," If not, then PRESS CONT." 


! THE FOLLOWING DATA ARE ARRANGED AS FOLLOWS: 
! DATA CURVE No. 
! DATA NP,NN,N 
! DATA APOS COEFICIENTS x=fcY> FOR Y>O 
|! DATA ANEG COEFFICIENTS X=f¢Y> FOR Y<o 
! DATA YFCX) COEFICIENTS 
t 
! CURVE No. ONE 
4,4,4 
. 5003067966, 1. 19219319, 3.0139759, -3.4132912,1.392177381 
. 5003067966, -1. 15219319, 3.8139759, 3.41352912, 1. 39217781 
~, 45216186, 1. 19544007, ~.66359797, .25054923, -.034174338 


2 ! 
3,3,3 
1.5193756399,2.27918152, -2.5230983,1.630479031 
1.5193756399, -2.27918152, -2. 5230993, -1.53947931 
3.3554752, -5. 6849365, 2.959523, ~. 44128793 


CURVE No. 18 


3 | 
6,6,3 
2.9096223634, .30397, 12. 96206, -62. 1508, 125. 7966, -114.0765, 38 


CURVE No. 11 


2.90806223534, -.390397,12. 962906,62. 1508, 125. 7966,114.8755, 38. 
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16288 
16298 
16388 
16318 
16320 
16338 
16348 
16350 
16360 
16370 
16388 
16398 
16488 
16418 
16428 
16438 
16448 
16458 
16468 
16478 
16488 
16498 
16588 
16518 
16528 


ANCH (Np) ?",Np 


16538 


Explain: 


Coef_pos: 


DAT 

! 

l 

DAT 

DAT 

DAT 

DAT 

DAT 

! 

' 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PAUSE 

PRI 

PRI 

REA 

PRI 

PRI 
INP 
INP 


PRI 


A -11.205773,13.18159,-5.328163, .767301 

A 4 ' SURFACE NR 1 FOR n2=4, F=4 INCHES 

A 2,2,2 

A .3134601721, 2. 75486136449, -. 3640723145 

A .3184601721, -2. 7548136949, -. 3690723143 

A ~.1971362125, .33416673828, .02751337081 

Since this program is intended to be used to evaluate" 
“various second surfaces a method of labeling the current " 
"design surface has been incorporated into the algorithm. " 
: The program wil! ask you for a curve number. At that" 
“time, key in any number Cinteger or reald you wish to use" 
"identify the surface." 

LINC2),"PRESS CONT" 


NT PAGE, "The current values of Curve and Np (‘the degree" 

NT “of the positive branch x = fCy) ) ares" 

D Curve,Np,Nn,N 

NT LINCL), Curve = “;Curve 

NT " Np = “3Np 

UT “WHICH CURVE ARE YOU USING (CURYE No.) ?",Curve 

UT “WHAT IS THE DEGREE OF THE POLYNOMIAL FOR THE POSITIVE BR 
NT LINC2) 


16548 Quick_loop_p: PRINT “NOTE: These are the current values of the positive 
branch coeficients:" 


16558 PRINT 

16568 FOR I=@ TO Np 

16578 READ Apos<¢I)> 

16588 PRINT USING 16590;31,Apos¢!I) 

16598 IMAGE “Apos¢«"4D")>: = "“,K 

16688 NEXT I 

16618 PRINT 

16628 Z21=Apos(@> 

16638 Any $2"NONE" 

16648 INPUT “RRE YOU GOING TO CHANGE ANY OF ALL OF THE COEFICIENTS ? SOME/ALL 

NONE ",Any$ i 

16658 IF (Any$="NONE") GR CAny$="none") THEN None_p 

16668 IF CAny$="SOME") OR (CAny$2"some") THEN Some_p 

16678 All_p:PRINT 

16688 PRINT "Please key in the coefficients, beginning with the constant:”" 
16698 FOR [28 TO Np 

16788 INPUT "“",Apos¢I> 

16718 PRINT USING 165980;1,Apos¢I) 

16728 NEXT I 

16738 None_p: PRINT 

16748 Y$="N* 

16758 INPUT "DO YOU NEED TO MAKE ANY CORRECTIONS ? Y/N",Y$ 

16768 IF CY$3"N") OR CYS3"n"“) THEN Coef_neg 

16776 Some_p: INPUT “WHAT IS THE NUMBER OF THE COEFICIEINT ? ‘8,1,2, etc)”",Npp 
16788 INPUT “KEY IN THE CORRECT VALUE, THEN CONT", Apos<Npp?D 

16798 PRINT USING 16598;Npp,Apos (Npp) 

16888 Y$=u"y" 

16818 INPUT “IS THAT ALL",Y$ 

16828 IF CY$="y") OR CY$="y") THEN Coef_neg 

16838 IF CAny$2"SOME"> OR CAny$="some"> THEN Some_p 

16848 GOTO Some_p 

16858 Coef_neg: PRINT PAGE,"“The current values of Curve and Nn ‘(the degree" 
16868 PRINT “of the negative branch x = f(€-y) ) are:" 

16878 PRINT LINC1)," Curve = “s;Curve 

16888 PRINT " Nn = "“$Nn 

16898 INPUT "WHAT IS THE DEGREE OF THE NEGATIVE BRANCH POLYNOMIAL (Nn) 
2" ,Nn’ 


16988 Quick loop_n:PRINT LINC2),"NOTE: These are the current values of the neg 
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ative branch coefficients: " 

16910 PRINT 

16920 FOR I290 TO Nn 

16930 READ Aneg‘ I> 

16940 PRINT USING 169590;1,Aneg( 1) 

16950 IMAGE "Anegt"4$D"> = ",K 

16960 NEXT I 

16970 PRINT 

16980 Any $="NONE" 

16990 INPUT "ARE YOU GOING TO CHANGE ANY OF ALL OF THE COEFICIENTS ? SOMNE/ALL 
NONE “,Any$ 

170900 IF (Any$="NONE") OR (CAny$2"none"> THEN None_n 

17012 IF (Any$="SOME"> OR CAny$="some"> THEN Some_n 

17020 All_n: PRINT 

17030 PRINT "Please key in the coeficients, beginning with the constant: " 
17840 FOR 12@ TO Nn 

17850 INPUT "",Aneg I> 

17860 PRINT USING 16950;1,Aneg< I> 

17870 NEXT I 

17Q@8@ None_n: PRINT 

17890 Y$=a"N" 

17100 INPUT "DO YOU NEED TO MAKE ANY CORRECTIONS ? Y/N",YS 

17110 IF ¢¥$2"N") OR CYS="n")>) THEN Gymnastics 

17120 Some_n: INPUT "WHAT IS THE NUMBER OF THE COEFICIEINT 7 60,1,2, etco",Nnn 
17138 INPUT "KEY IN THE CORRECT VALUE, THEN CONT",Aneg i Nnn> 

17140 PRINT USING 169503Nnn, Aneg(Nnn) 

17150 Ysa"y" 

17160 INPUT "IS THAT ALL",Y$ 

17172 IF <YSs"y") OR CYS="y")> THEN Gymnastics 

17130 IF CAny$="SOME"> OR CRAnys2"some"> THEN Some_n 

171390 GOTO Some_n 

17200 Gymnastics: SUBEND 

17210 ! 

17220 |! 

17230 SUB Char 

17240 FOR [2@ TO 79 

17250 IF [1279 THEN PRINT CHRS$(228) 

17260 IF [#79 THEN 17282 

17278 PRINT CHRS$(228); 

17288 NEXT I 

17290 SUBEND 

17300 SUB X2pos¢X2, Y)> 

17310 OPTION BASE Q 

17320 COM INTEGER I,J,Curve,Np,Nn,N,Ns,Nr,REAL Aneg(4),Apos(#>,AC#),21,23, 24 
17330 t 

17340 FOR 128 TO Np 

173380 X22X2+Apos ( l>#¥*I 

17360 NEXT I 

17370 SUBEND 

17380 SUB X2neg(X2, Y> 

17398 OPTION BASE Q 

17400 COM INTEGER [,J,Curve,Np,Nn,N,Ns,Nr,REAL Aneg(#), Apos(#),AC#),21,23,24 
17419 ! 

17420 FOR I=@ TO Nn 

17430 X22X2eAneg (1) #Y*I1 

17442 NEXT I 

17450 SUBEND 

17460 SUB I[ndex_p¢(x,Y> 

17478 OPTION BASE Q 

17489 ! 

17490 COM INTEGER 1I,J,Curve,Np,Nn,N,Ns,Nr,REAL Aneg(#), Apos(#),AC#)>,21,23,24 
17500 COM Alpha, Talpha, Rho, Trho,Rho_initial, Trhoi,Ph1,Tol,Norm,Alphae 

173510 COM N1,N2,N3,Percent_image, Ya, Yb,Aperture,Y_bullet 

17520 ! 

17530 COM INTEGER Y@_loop,Nray,Add _ray,Surf_no,Flag,Flag2,N_increment,Hit_tota 
1 

17540 COM INTEGER Linecount,Linemax 
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17558 
17568 
17576 
17582 
175998 
17666 
17618 
17628 
17638 
17648 
17658 
17668 
17676 
17688 


COM INTEGER Pselect,Hpib 


COM RERL Nmin,Nmax,R@ max 
| 
DEG 
Am2s.60/Talpha 
Ym2=Xm2*Taipha 
IF RQ_max<SQRCkm2*2e¥m2*2> THEN Ro_max=SQRCXm2*2¢Y¥m2*2) 
Radius#SQRCK*2+Y*2) 
R2=RO_max*2 
K=CNmax-Nmind7Re 
B=(Radius-R@_ max)*2 
N2=Nmax+K*B 


FROM yv=mx + Bb AND Ymax = 1.2 


SUBEND 


17698 SUB Index_¢¢x,Y) 


17766 
17718 
17729 
17730 
17748 
177590 
17760 
1 

17778 
17788 
17799 
17868 
17818 
17820 
17830 
17848 
17850 
17860 
17878 
17888 
17898 
17988 
17918 
17929 
17938 
17948 
1795@ 
17968 
17978 
17988 
17998 
1 

1880e 
18018 
18028 
18838 
18848 
18850 
1886¢ 
18878 
18880 
18898 
18188 
18118 
18122 
18138 
18148 
1815@ 
18168 
18178 


18180 ~ 


OPTION BASE 2 

{ 

COM INTEGER I,J,Curve,Np,Nn,N,Ns,Nr,REAL Anegt*)>, Apos(#),AC#),21,2523,24 
COM Ripha, Talpha, Rho, Trho,Rho_initial, Trhoi,Ph1,Tol,Norm,Aiphac 

COM N1,N2,N3,Percent_image, 7a, Ydb,Aperture,Y bullet 

! 


COM INTEGER Y@_loop,Nray,Add_ray, Surf_no,Flag,Flag2,N_increment,Hit_tora 


COM INTEGER Linecount,Llinemax 
COM INTEGER Pselect,Hpid 
J 


COM REAL Nmin,Nmax,R@_max 
i 
DEG 
Xm2=.60/Talpha { 
Ym2=Xm2*Talpha 
IF R@_ max<SORCXm2*2¢¥m2*2) THEN Ro_max=SQR¢Xm2*2+Y¥m2*2) 
Radius=SQRCK*2+Y%*2) 
R=RO_max*2 
BeCRadius-RO_max)*2 
C2=A-B 
N2=Nmin+SQR¢C2> 


FROM y=mx + Bb AND Ymax = 1.2 


SUBEND 
SUB Density 


OPTION BASE 8 
i 


COM INTEGER I[,J,Curve,Np,Nn,N,Ns,Nr,RERL Anegl#), Apos(#),AC#),21,23,24 
COM Ripha, Taipha,Rho,Trho,Rho_initial,  Trhoi,Phi, Tol,Norm,Alphac 

COM N1,N2,N3,Percent_image, Ya, Yb5,Aperture,Y bullet 

i 


COM INTEGER Y8_ loop,Nray,Add ray, Surf_no,Flag,Flag2,N_increment,.Hit_tota 


COM INTEGER Linecount,Linemax 

COM INTEGER Pselect,Hpib 

! 

COM REAL Nmin, Nmax,R@_ max 

COM Ray traces, Digitizes,Grins,G$,Grincs,Plots, Dates 
COM KC#), YC #), XC C#) NCH), ROH) 

i 


COM Rho¢<#), Phi C#), CCH), Y3C#) Hit Ce 

1 

INTEGER Ine,K,L,M,Lines 

DEG 

' THIS ROUTINE COMPUTES THE RAY DENSITY IN ONE DIMENSION. 

! ASSUMPTIONS: 

\ 1> THE POINT OF MAXIMUM RAY DENSITY HAS BEEN FOUND VIA A 
| DIGITIZE STRTEMENT. 

| 2> THE VALUES OF Y3 HAVE NOT BEEN CHANGED TO REFLECT THE 
\ NEW VALUE OF 23 

' 


PRINTER I[S 16 


1819@ Initialize : Nrs-1 


Zon 





18200 


Ns=-3 


1821@ Re draw: FOR I=1 TI) Nray 


18220 
18230 
18240 
18250 
18260 
18270 
18280 
182990 
183900 
18310 


18320 Negative: 


Positive: 


x2 POS*’NEG 


183390 
18340 
18350 
18360 
183790 


18380 Next_i: 


183990 
18400 
18410 
18420 
18430 
18440 
184350 
18460 
18476 
18480 
18490 
18500 
18510 
18520 
18530 
18540 
185590 
18569 
183570 
18530 
1859 
18600 
18610 
18620 
186390 
18640 
18650 
18660 
186790 
18680 


Inc)?1 
18690 Next_k:; 


18700 
18710 
18720 
18730 
18740 
187590 
18760 
18770 
18789 
18790 
18800 
t 


18810 Next_m: 


18820° 


18830 Normalize: Hit total=@ ! 


Same; 


Nr=Nr+3 
Ns=Ns+5 
R=xXeCI> 
X=X CNS) 
Y=YCNS) 
Rho=z=RhocNr)d 
TrhosTAN( Rho > 
IF A<21 THEN Negative 
IF Rho=@ THEN Next_i 
GOTO Same 
IF “<=-Y%_ bullet THEN Next i 


TOTAL INTERNAL REFLECTION AT K2P0S 
| Y2=-Y_bullet =>THE RAY MISSED 
IF Rho=@ THEN Next_i ' TOTAL INTERNAL REFLECTION AT X2ZNEG 
Delt ay=(23-X)*«Trho 

Y¥3=Y+Deltay 

XCNS+1)223 

YCHistLdI=V3 


NEXT I 


Y3_array: J=0 


Hit zero: 


Next Js 


Hit middle: ! 


Hit_last: 


FOR I=1 TO Nray 
Y¥3¢ J sYCS#I-2>) 


JajJ+1 
NEXT I 
MAT Hit=ZERC 2001) ! ZERO THE ARRAY 
Inc 39 ' FIND THE No. OF HITS IN THE 


Ylast2=-Y_bullet [THER Vel Cea e BULLET, ~¥ SULLCETtDELTA/2> 
DeltazY_bullet/“N_increment 
YnextsYlast+Delta“2 
Hit ¢Inc>=0 
J=@ 
FOR I21 TO Nray 
IF (XeCI)<21> AND CY3¢J>20> THEN Next _j |! IGNORES NEGATIVE 
! BRANCH RAYS 
IF (¥3¢J>>e8Ylast> AND (Y3¢J0<Y¥next>) THEN Hit CInedeHitcIncd+l 
JaJ+1 
NEXT I 
FIND THE No. OF HITS IN THE INTERVAL 
ey esuULLET+DECTA-2, Y PULLET-DELTA/2> 
FOR L31 TO 2#N_increment~-1 
IncaInc+l 
Hit ¢Inc)=0 
YlastzY¥next 
YnextzYlast+Delta 
K=@ 
FOR I#1 TO Nray 
IF €XeCId<21> AND CY3CK2=@) THEN Next_k ! IGNORES 
! NEGATIVE BRANCH RAYS 
IF CY¥3CK)>sY¥last>? AND CY¥3CK2<Y¥next) THEN HitCInced=Hit ¢ 


K3K+1 
NEXT I 

NEXT L 
Inc=2*#N_increment ! 
Hit ¢Inc) 38 ! 
M=@ 
YlastsY_bullet-Deltav2 
YnextsY_ bullet 
FOR Y=1 TO Nray 

IF ¢XeCId<21)> AND (CY3C€M)30) THEN Next _m ! IGNORES 

1 NEGATIVE BRANCH RAYS 
IF CY3CM)>2Ylast> AND CY3¢(M)<=Y¥next> THEN Hit¢cInedsHitCIncd+ 


FIND THE No. OF HITS IN THE LAST INTERVAL 
CY_BULLET-DELTA’2, Y_BULLET] 


MaM+l 
NEXT I 


MORMALICE THE No. OF HITS ON THE 


f 
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13848 
18850 
13860 
18370 
1838380 
13890 
18980 
13910 
18920 
138930 
13949 
13950 
18960 
18970 
18930 
138998 
19000 
19810 
19828 
198398 
19840 
19850 
19860 
19079 
19830 
19890 
19180 
19110 
19120 
19130 
19140 
19158 
19160 
19178 
19180 
19190 
19280 
19210 
19220 
19238 
19240 
19258 
19268 
19270 
19238 
19298 
19308 
19310 
19320 
19338 
19340 
19358 
19368 
19378 
19388 
19398 
19400 
19418 
19428 
19430 
19440 
19450 
19460 
19470 


19480. 


19490 


None: 


Graph: 


FOR 120 TO c*N_increment 
Hit total=Hit totaltHit<l) 


NEXT I 


NEXT I 


PetsHit total/Nray 


IF Hit_total=0 THEN None 
FOR 120 TO 2*N_increment 
HitcI>sHitcIo“Hit_ total 


Percent _ image=Pct*100 
CALL Plot 


IF Hit_total=@ THEN Label_ 


First _bar: Xlast=-Y_bullet 
Knext=Xlast+rDeltarve |! 


Inc =0 


INTERVAL 


! IMAGE PLANE 


1 No. 


+ 
e 


IF Hit<Ince>=8 THEN Middle bars 


CLIP Xlast,Xnext,8@,Hit <Ine> 


FRAME 


Middle _bBars: FOR I=1 TO 2*N_increment-! 


Next_i_m 


Label_: LDIR @ 
LORG 2 


SU 
Delt: 


GOSUB Delt 


IF Hit¢Ine>)=@ THEN Labdel_ 
CLIP Xlast,Xnext,¥,Hit Inc) 


Inc2zInc+l 
Xlast =Xnext 


XnextzxXlast+Deltra 
IF Hit¢Inc)=0@ THEN Next_i_m 
CLIP Xlast,Xnext,@,Hit Ine? 


FRAME 
GOSUB Delt 


a NEXT I 
Last bar: Inc=e*N_ increment 


FRAME 
GOSUB Delt 


SETGU 


MOVE 2,2 
CSsIZE 2.2 


LABEL 
SETUU 
CSIZE 


PRUSE 


"PRESS CONT" 


1574.54 


EXIT GRAPHICS 


BEXIT 


Lines=1@0 


C- 


G25) TOOTHE TOTAL 


OF HITS 


% OF RAYS THAT ARRIVE AT THE 
IMAGE PLANE 
PEOGT AND LABEL THE AXES 


DRAW THE HISTOGRAM 
Y_BULLET, -Y_BULLET+DELTA/’2> 


INTERVAL 
(-Y_BULLET+DELTAY2, 


Y_BULLET-DELTA’2> 


_ INTERVAL CY_BULLET-DELTA’2, Y_BULLET] 
Xlast=Y_bullet-Deltav2 
xnextz#Y bullet 


Deltz<CXnext-Xlasto7Lines 
X=Xlast-Delt 

FOR Ji TO Lines 
XaX+Delt 

MOVE X,@ 

DRAW X,Hit¢Ine> 


NE 


xT J 


RETURN 


SUBEND 
SUB Pict 
scale: 


ure 


GCLEAR 


PLOTTER IS 13, "GRAPHICS" 
GRAPHICS 

LIMIT 0,184,8,148 
SCALE -20,152.4,-55,55 


AXES 3,5,0,8,108,18 


19500 Label_: MOVE 20,45 
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19510 
19520 
19530 
19549 
19552 
19569 
195798 
19539 
19599 
19609 
19618 
19629 
19638 
19649 
19658 
19669 
19679 
19688 
19699 
19709 
19719 
19728 
19739 
19748 
19759 
19768 
197798 
19789 
19798 
19890 
19819 
19829 
19839 
19849 
19858 
19868 
19878 
19889 
19898 
19928 
1991 
19928 
19939 
199498 
19959 
19969 
19978 
19988 
19999 
29838 
29819 
28828 
29838 
29840 
29859 
20868 
28879 
28089 
29899 
281989 
20119 
29128 
29130 
28149 
28158 


29160 ° 


LABEL 


Tl 


HE PROBLEM” 


MOVE 20,44 
DRAW 50,44 


Draw_body: 


Draw_inlet: 


second surf: 


Ray: 


MOVE 
DRAW 
DRAW 
MOVE 
DRAW 
DRAW 
MOVE 
DRAW 
DRAW 
MOVE 
DRAW 
DRAW 
MOV 


DRAW 
MOVE 0,15 


DRAW 40,15 
DRAW 45,13 
DRAW 184,-14 


Image _ plane: MOVE 
LINE 


8,9 
74,30 
184,30 
a) 
74,-30 
184,-39 
70,35 
88,32 
184,38 
70,-35 
80,-38 
184,-33 
33,28 
35,5 
40,9 
45,13 
59,15 
74,30 
30,2 
35,-5 
49,-3 
45,-13 
50,-15 
74,-30 


E 


80,39 
TYPE 4 


DRAW 88,-30 
Label picture: MOVE 65,-50 


c 


LABEL 


THE’ TYPE 1 
"S754 GLM" 


MOVE 85,15 
LABEL “IMAGE PLANE” 
MOVE 15,2 : 


LABEL 


"ALPHA" 


MOVE 18,2 
DRAW 8,2.5 
MOVE 5,18 


LABEL 


"INCIDENT RAY" 


MOVE 35,2 


LABEL 


ree 


MOVE 35,2 
DRAW 30,9 
MOVE 113,2 


LABEL 


“Xe tt] 


MOVE 113,2 
DRAW 118,90 
MOVE 82,2 


LABEL 


ot 


MOVE 82,2 
DRAW 80,9 
MOVE 139,3 


LABEL 


Si 


MOVE 131.5,1.5 


L 
M 


LABEL 


ABEL “L* 
OVE 5,-10 


MOVE 30,-18 


LABEL 


“no” 


MOVE 50,~198 
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20170 
29180 
20190 
20200 
20210 
20229 
20230 
20240 


29252 


20260 
20270 
20280 
28290 
29300 
29310 
20320 
28330 
20340 
28350 
20360 
29379 
29380 
283990 
28480 
20410 
20420 
20430 
20440 
29450 
20460 
29470 
20480 
29490 
20500 
205190 
20520 
28538 
29540 
28559 
20560 
20570 
29589 
29590 
20600 
20618 
29620 
20630 
20640 


EARBEE “ns" 
Fintéhed: MOVE {5,-55 
| LABEL “PRESS CONT" 
BEEP 
WAIT 250 
BEEP 
PAUSE 
EXIT GRAPHICS 
SUBEND 
SUB X2pc¢x, Y) 
OPTION BASE @ 
i 
COM INTEGER [,J,Curve,Np,Nn,N,N3,Nr,REAL Aneg(+),Apos(#),AC#),21,23,c4 
i 
DEG 
FOR [=@ TO N 
YHYerRc LT #71 
NEXT I 
SUBEND 
SUB X2ntx, YD 
OPTION BASE @ 
i 


COM INTEGER I[,J,Curve,Np,Nn,N,Ns,Nr,REAL Aneg’*) ,Apos¢(#),AC#),21,23,24 
1 
DEG 
CALL X2p¢x,Y) 
Ys-1#Y 
SUBEXIT 
SUB Min¢Xm¢#),X%, INTEGER M) 
OPTION BASE @ 
i 


1 DIM Xm¢mM)> 
I 


X=XmCO)d 
FOR [T=1 TO ™ 
X=Minex, XmCIdd 
NEXT I 
SUBEND 
SUB Max(XmC*#>,X, INTEGER M 
OPTION BASE 9 
i 


' DIM XmcM) 
' 
x=XmCO> 
FOR [=1 TO ™ 
X=MINCX, XmC1I))D 
NEXT I 
SUBEND 


Ze 





APPENDIX C 


POLYNOMIALS USED FOR THE SECOND SURFACE 


=m. INTRODUCTION 

The following discussion compares the attributes of three 
analytic expressions, in polynomial form, used as second sur- 
faces for a conical lens. The lenses are compared in terms 
of the individual lens ability to cause some or all of the 
incident light rays to converge to a point. The points of 
ray convergence are referred to as "focal" points although 
they are not focal points in the standard usage of the term. 
Lens designers have developed a system of standards used as 
figures of merit to compare one lens to another. These 
Standards include spherical abberation, coma, tilt, astigma- 
tism and others. The figures of merit have not been calcu- 
lated because the three curves discussed in this appendix are 
known to be completely unsatisfactory to use as refracting 
surfaces. The purpose of the thesis is to discover which 
properties of a curve to investigate in order to lead to 
usable design. Therefore an intuitive comparison of ray 
diagrams, histograms of ray distributions and the set of 
basic design criteria described in chapter III are the basis 


For the discussion of curves A, B and C in this appendix. 


mo. CURVE A 


Curve A, shown in figure C-l was the first analytic ex- 


pression used as a second surface to produce a ray diagram. 
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The curve was calculated by otaining the data listed in 
Table C-l from an arbitrary hand drawn curve. These data 
were used as the input to a regression analysis routine in 
the HP-9845B utilities library. Since TRACE requires the 
second surface to be expressed as a polynomial function of 
memtiree Curves were fit to the data. Table C-II contains 
the coefficients for each of the polynomials. The first 
polynomial relates the radial distance from the GLM axis to 
the distance along the GLM axis, i.e. radius = £ (distance 
along the GLM axis). The remaining two are required by 
TRACE for ray tracing and graphics purposes. The second 
expression relates the distance along the GLM axis to the 
radius from the axis in the upper half-plane; i.e. distance 
along the GLM axis = f(radius). The third expression relates 
the distance along the GLM axis to the radius in the lower 
half-plane; i.e. distance along the GLM axis = f(-radius). 


All linear dimensions are in inches. 
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TABLE C-1 


DATA POINTS FOR CURVE A 


ye=— £(x)* =f Gy) * x = £(-6)* 


(Ordinate ,Abscissa) (Ordinate ,Abscissa) (Ordinate,Abscissa) 


$529,882 DB. P02, 2.322 2.990, 8.500 
G.600,8.969 G. 869, 0.689 -$.969,0.600 
0.700,8.138 $.138,0.722 -8.138,8.799 
$.800,0.188 G.188,0.808 -$.188,8.809 
$.988,8.238 G.238,8.989 -8.238,0.90D 
1.900,8.281 G.281,1. 222 -$.281,1. 099 
1.590,0.522 G.580,1.590 -$.588,1.596 
2.998 ,8.731 8.731,2. 028 -$.731,2. 008 
2.598 ,8.938 G.938,2.569 -8.938,2.598 
2.988,1.199 1.199,2.998 -1.199,2.999 


*; For x = distance along the GLM axis and 


y = radial distance from the GLM axis. 


Zp 





Coefficient 


Number 


a. 
a 


ror 


TABLE C-II 


POLYNOMIAL COEFFICIENTS FOR CURVE A 


y = £(x)* 


~$.45216186 
1.18544997 
~$.66358797 
6.25954923 


-%.834174838 


% 
i! 


KK 
i! 


Positive 
Branch 


x = £(y)* 


G.5883867966 
eee oo 
Ses 8759 
-3.4182912 


esol 7 MeL 


216 3 


Negative 


Branch 


x = £(-y)* 


G.5883867966 
=F .152193 19 
Seuss So 
St 8 2972 


oo 2177 8 


distance along the GLM axis and 


radial distance from the GLM axis. 





A ray diagram using TRACE, which is shown in figure C-2, 
demonstrates that curve A has the ability to focus some of 
the rays to a point near the wall of the GLM at a distance of 
21.18 inches along the GLM axis. Figure C-3 is the histogram 
of the ray distribution for figure C-2 and shows a maximum at 
1.08 inches. If this distribution were rotated about the GLM 
axis, the two dimensional distribution would be a set of 
concentric rings centered on the GLM axis with the most in- 
tense ring at a radius of 1.08 inches. Although this ray 
pattern is unsatisfactory, the fact that some rays converged 
to a focus waS encouraging. 

The converging rays were coming from the middle region of 
the curve. The slope of the middle region of the curve is 
slightly larger than the slope of the first surface. The 
slope of the regions above and below the middle region have 
slopes which are approximately the same as and greater than 
the slope of the first surface respectively. The ability of 
the middle region to focus light rays suggested the existence 
of a range of slopes which would cause convergence of light 
rays. The light rays which intercept the second surface in 
the lower half-plane are totally internally reflected because 


of the large angle of incidence. Total internal reflection 


occurs when Snell's Law sind, (no/n,) sind, results in 


R 


sind, = l1 and any angle greater than a results in total 


sin 21. The critical angle of incidence BY is where 


internal reflection. The range appears to be in a narrow 
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Number of Rays 3: 5d 


Image Plane 3: 21.18 inches 


G.60 deg 


Incident Ray Angle 3: 


Aperture 3: 1.100 inch 


1 .3@80a 


ne: 


Figure C-2. 


Ray Diagram for a Conical Lens Using Curve A 


as the Second Surface. 
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band with the minimum value greater than the value of the 
cone angle, a. Since the curve 1s concave with respect to 
the first surface, the next step of the investigation was to 
Study curves with the appropriate slope comparable with curve 
A and regions concave and convex with respect to the first 
surface. These two criteria were the basis for choosing 


curves B and C for further investigation. 


=. CURVE B 

Curve B, shown in figure C-4 was chosen because the 
analytical expression which describes the curve exhibits 
regions similar to those discussed for curve A. The shape 
of curve B is smooth with an inflection point providing 
regions concave and convex with respect to the first surface. 
The data used to generate the analytical expression for the 
curve are listed in Table C-III. Three analytic expressions 
were calculated as for curve A. The coefficients for the 
three polynomials describing curve B are listed in Table C-IV. 

The ray diagram in figure C-5 demonstrates the ability 
of curve B to cause some of the light rays to converge to a 
"focal" point. A ray diagram with an image plane located at 
the point of maximum ray density is shown in figure C-6. Al- 
though this ray distribution is not satisfactory the distri- 
bution of rays is relatively better than the ray distribution 
for curve A shown in figure C-2. 

The ray distribution of curve B is better than that for 


curve A because the point of ray convergence is closer to 
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TABLE C-III 


DATA POINTS FOR CURVE B 


y = £(x)* x = £{y)* ae) 


(Ordinate,Abscissa) (Ordinate,Abscissa) (Ordinate ,Abscissa) 


1.522,8. 809 B.209,1.522 $.G0G,1.500 
1.760,0.975 6.075,1.7£9 -$.675,1.766 
1.996 ,0.22 6.200,1.999 -6.266,1.909 
2.198,8.394 $.394,2.199 -8.394,2.166 
2.388,8.569 G.569,2. 399 -$.569,2. 308 
2.598,08.744 $.744,2.599 -$.744,2.506 
2.788 ,6.888 $.888,2.722 -$.888,2.796 
2.990,1. 099 1.990,2.922 -1.968,2.929 


*; For x = distance along the GLM axis and 


y = radial distance from the GLM axis. 





TABLE C=-IV 


POmuNneMiAl, CORPrICIENTS FOR CURVE B 


Coefficient 


Number 


a. 
i 


Hor xX 


Positive 


Branch. 


y= ee) * se= f(y) * 


oe 


=e 


2. 


eye 


3554752 it 93 7 303.99 


6849365 Zee) OMe 2 


959523 -2.5238983 


4412878 1.63947931 


Negative 


Branch 


x = £(-y)* 


wo. 9 Seo 399 
SZ 279190152 
-2.5239983 


-1.63947931 


distance along the GLM axis and 


radial distance from the GLM axis. 
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Number of Rays : 5G 


Curve Number : 


Ray Diagram for a Conical Lens Using Curve B as the 
Second Surface. 
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3.25 inches 


[.160 inch 


Number of Rays 3: 


Curve Number : 


Image Plane : 


G@.04 deg 


Incident Ray Angle : 


Aperture 


1.538600 


ne: 


Ray Diagram Using Curve B with Image Plane at 3.25 Inches. 


Figure C-6. 





both the lens and the GLM axis. The histogram for curve B in 
figure C-7 shows the point of maximum ray density is located 
at a radius of approximately 0.2 inch from the GLM axis. The 
point of maximum ray density for curve A is at a radius of 
approximately 1.08 inch from the GLM axis. Although curve A 
causes more of the rays which strike the image plane to focus 
than curve B does, the ability to achieve a short focal length 
1s more desirable and therefore curve B is judged to be better 
than curve A. A second factor which must be taken into ac- 
count is the fraction of rays transmitted through the lens. 
Curve A transmits 84% (42 of 50) of the incident rays through 
the lens. Curve B transmits 68% (34 of 50) of the light rays 
through the lens. The fraction of transmitted rays could be 
increased by moving the second surface forward and making the 
lens thinner. 

The ray diagram and histogram for curve B in figures C-6 
and C-7 reveal the absence of a large number of rays in the 
lower half-plane near the lens. Rotating the histogram 
about the GLM-axis would generate a set of concentric rings 


with the most intense at a radius of 0.2 inch from the GLM 


maxis. 


Using the ray diagram and histogram for curve A in fig- 


ures C=-2 and C-3 as baseline design figures for the GLM lens 


curve B is judged to be the superior curve of the two due to 


the capability of curve B to cause light rays to converge in 


a region relatively close to the lens and near the GLM axis. 
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Brave A exhibited one convex region and one focal point. 
The rays intercepting the second surface in the lower half- 
plane were totally internally reflected as they ee EOL 
curve A. 

The investigation was now directed to probe the ability 
Of a convex surface to cause convergence of the light rays 
at a shorter distance along the GLM axis than a concave 
region. Curve C was chosen because the analytic expression 


is a higher order polynomial with several inflection points. 


Bm. CURVE C 

Curve C shown in figure C-8 was chosen because the higher 
order polynomial contains several inflection points. The 
inflection points provide regions of concave and convex sur- 
faces. If the results for curve B are valid then curve C 
should cause rays to converge to several focal points, one 
for each convex region. The data points for curve C listed 
in Table C-V were obtained and the polynomial coefficients 
in Table C-VI were generated in the same manner as for curve 
A. 

The ray diagram in figure C-9 show two distinct areas 
where rays exiting the lens from a convex region converge. 
The focal points possess the same characteristics as those 
©: curve B. The focal points are located in a region close 
to the lens and are formed from rays emerging from a convex 
portion of the surface. Light rays refracted from concave 


| regions of the lens do cross other light rays, but do not 


a 
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TABLE C-V 


Bata POENTS FOR CURVE C 


y = £(x)* x = f£(y)* x = £(-y)* 


(Ordinate ,Abscissa) (Ordinate ,Abscissa) (Ordinate ,Abscissa) 


2.222 8.02 D.000,2. 000 J. P00,2.00p 
2.100,8.881 G.G81,2.198 -$.881,2.199 
2.200,8.175 G.175,2.208 -$.175,2.288 
2.300,8.244 $.244,2.398 -8.244,2.308 
2.402 ,8.331 $.331,2.499 -8.331,2.499 
2.500,8.588 0.588 ,2.596 -8.500,2.582 
2.600,08.606 B.600,2.698 8.6928 ,2.6f9 
2.788 ,8.612 $.612,2.788 -$.612,2.7f8 
2.800,8.744 B.744,2.898 -$.744,2. 899 
2.858,8.8125 @.8125,2.858 -$.8125,2.859 
2.990,1.908 1.028 ,2.999 -1.999,2.999 


*; For x = distance along the GLM axis and 


radial distance from the GLM axis. 


K 
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TABLE C-VI 


POLYNOMIAL COEFFICIENTS FOR CURVE C 


Coefficient 
Number 

as y = £(x)* 
a, =Li.205773 
ay a8 159 
a5 ~5.328168 
a 0.767891 
ay, 6.29 

ac %. BD 

ae GB. PP 


*; For x 


Positive 
Branch 


w= E(y) * 


2.883622 364 

6.38397 
12.96206 
~62.1598 


Ds. 1 916.6 


~-114.9765 


38.6194 


23. 


Negative 
Branch 


x = £(-y)* 


2.983622364 
~0 .39397 
2020/6 
62.1598 

25.7966 
114.9765 


38.6194 


distance along the GLM axis and 


radial distance from the GLM axis. 
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lumber of Rays ¢ 


Curve thimbor 


Ray Diagram for a Conical Lens Using Curve C as the 


Second Surface. 


Figure C-9. 





converge as a group as do the light rays from the convex 
regions. 

Comparing the focal points caused by curve C shown in 
figures C-10 and ll with figure C-l for curve A shows that 
the focal point caused by curve A is located at a point 21.18 
inches along the GLM axis and at a radius of -1.08 inches 
(21.18, - 1.08) inches. The focal points for curve C are 
positioned at approximately (3.46, -0.25) inches and (3.25, 
0.54) inches. If the histogram in figure C-12, drawn for 
the image plane in figure C-10 was rotated about the GLM axis 
a set of concentric rings would be formed. The most intense 
rings would be located at radii of 0.25, 0.34 and 0.44 inch. 
Rotating the histogram in figure C-13 drawn for the image 
plane in figure C-1ll would produce a similar set of rings, 
the most intense located at radii of 0.16 and 0.54 inch. 
Comparing the number of rays transmitted reveals curve A 
transmits 84% (42 of 50) of the incident rays and curve C 
transmits 58% (29 of 50) of the incident rays. However, 
since curve C causes light rays to converge in a region 
closer to the lens than does curve A, curve C is judged to 
be better than curve A. Also, all but one ray which inter- 
cepted the second surface of the lens using curve C in the 
lower half-plane experienced total internal reflection at 


the second surface. 
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5a 
3.25 inches 


Mumber of Rays : 
Aperture : {.106 inch 


oe 


Curve Number 


Image Plane 3 


G@.08 deg 


Incident Ray Angle : 


me : 1,.9880d 


Ray Diagram Using Curve C with the Image Plane at 


3.25 Inches. 


Figure C-ll. 
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B. CONCLUSIONS 

Three conclusions are drawn from the comparison of curves 
A, B and C. First, a range of slopes for the second surface 
exists which will enable the second surface to refract light 
to a focal point. The ray diagrams for curve A, B and C 
shown in figures C-2, C-5 and C-9 illustrate this relation- 
ship as well as the fact the rays which intercepted the 
second surface in the lower half-plane were almost all total- 
ly internally reflected. The relationship between the slopes 
of the first surface tana and the second surface tana2 
is shown in figure C-14. Rays are refracted in the region 
where a2 > the functional value for a given index of refrac- 
tion; rays experience total internal reflection when a2 < 
the functional value for a given index of refraction. The 
second conclusion is that a second surface which is convex 
with respect to the first surface causes light rays to con- 
verge in a region much closer to the lens than a concave lens. 
The third conclusion is that a single polynomial used to 
describe the second surface of a lens does not satisfactorily 
refract rays to a focus. CHART calculated surface D_ shown 
in figure C-15 for eleven rays. This is surface number one, 
illustrated in figure 17. A parabola was fitted to the eleven 
points using the HP-9845B Utilities Package. The fit appears 


to be quite good, especially when figure C-15 is compared to 


figure 17. However, when 50 rays are traced through the lens 


the ray diagram in figure C-15 is the result. The associated 
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5a 
4.604 inches 


~-616 tnch 


Number of Rays 3 


Curve Number 


Imaga Plane : 


G.64@ deg 


Incident Ray Angle : 


Aperture 


4.00B0d 


ne 


Ray Diagram for a Conical Lens Using Curve D as the 
Second Surface. 


Figure C-15. 
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histogram in figure C-16 shows the ray distribution on the 


image plane at the design focal point of 4.00 inches. 
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APPENDIX D 


THE USE OF A GENERAL BLOCK OF MATERIAL AS A LENS 


LCDR C.L. Burmaster, Naval Postgraduate School, suggested 
the use of a rhombus shown in figure D-l as a refracting lens 
because this type of lens should transmit light without aber- 
ration. The following discussion applies Snell's Law to this 
lens with the following boundary conditions: 

1) Side @) is parallel to side @). 

2) Side @) 1S parallel to side G) and symmetrical to 

the GLM axis. 

3) The ray in medium 3 is parallel to the incident ray 

in medium l. 
4) the index of refraction of the lens is related to the 
indices of media 1 and 2 in the following manner: 
ny < No and No > Nn. 

The incident ray in medium 1 makes an angle of incidence 

9 with ny the normal to the first surface. The ray is 


iE 


refracted into the lens at an angle of refraction, On with 
i 


respect to n, according to the relation sing, =(n,/n,) sino, 
i 
Snell's Law. The ray traverses the lens and forms the angle 


of incidence oF with the normal to surface 4. The ray 
4 
is refracted according to sind, = (n,/n,) sino, noting 
4 


“w 


that since surface @) 1S parallel to surface @) , Ty is 


parallel to ny and therefore 6, = 6, . Since the ray in 
4 i 


medium 3 is parallel to the incident ray in medium l O. = O, 
4 
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and applying Snell's Law at surface number 1 
n 


. 2 ® 
sind. = — siné@ 
iT Ny Ry 


and again at surface number 4 


a9) 
sind, = ALT Sind, 
4 3 4 
therefore equating 6 and 0 
i R 
1 4 
a 62 
ny n. 
therefore ny = n3- 


The conclusion for this lens is that the indices of refrac- 
tion for media 1 and 3 must be equal. The lens causes inver- 
Sion of the image because the rays are incident in the upper 
half-plane and exit in the lower half-plane. 

A more general lens is shown in figure D-2 which does not 
have boundary conditions 1) and 2) above. All other boundary 
conditions apply and in addition the lens is symmetric about 
the GLM axis. 

The incident ray in medium 1 forms an angle of incidence 


os with ny. 


ted according to sin@, = (n,/n.)siné and traverses the 
Ry a ae I, 


the normal to surface @ we bbewray sis eeerLac— 


medium, forming the angle of incidence iy with ny, the 
Mermal to surface @) . The ray is refracted into medium 3 
according to oar eR, = ees) Sty, parallel to the incident 
ray in medium 1. Noting the angular relationship between ff, 


and ny in figure D=-3 such that 85 = 8,+6 and §O=a <-y, 


then 65 =a- yY where aand y are the angles of sides 
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@ and @ with the GLM axis, respectively. 


T 
Now 86 = =-- 

Ry 2 
Hence 86 Sg Comey) 

R 2 
4 
Similarly 9 = ere. O = 5 eae 
I, Ry Ri 


From Snell's Law applied at side ® 1s 


i. 
sind, ee sin8, ; 
4 3 4 
= a e ae Al 
Noting that 8, = Op + 6, d= a Varana 5 OR 
4 1 4 
tbs T 
sing = ~— sin(é +a+t+ 6. = =x) 
Ra Ne Ry Ry 2 


Simplifying by trigonometric expansions for sine and cosine 


yields 
n. + n. sin(8 + a) 
tano, = - 3 2 a (D=1) 

4 n,cos (6 + a) 

R 

AE 

n 
with oF = arcsin E: sind, r 
1 2 l 


Equation (D-1l) is a necessary but not sufficient condition 
for the ray in medium 3 to emerge from surface 4 parallel to 
to the incident ray in medium 1. The final condition relates 


the angles of surfaces ) and 4) and oF = 8, + 6 as 
4 I 


shown in figure D-3. 
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Applying Snell's Law at surface (@) and using trigonometric 


expansions yields 


n 9 + = 
3 Sin ( R a) n 
_ 1 =) 
tany = 
n, cos(6 ac, 
2 R 
L 
with °R, axesin | (np/m,) sind, | : 


With equations (D-1l) and (D-2) rearranged to relate the 


tan (6, + a) as the independent variable the equations 


ir 
become tan(8, + a) = - (rane, - °3 ) VE), 
_ 4 nN, 
and 
n, 
tan (6, + a) = = cos(6, + a) + tand (D—4) 


a 
Since equation (D-3) equals equation (D-4) and solving for 


tany yields 


Nn Nn. 
tany = tano, + cos(8. + a) am = (D=-5) 
4 R 2 
1 
With the condition that y + On = > andeneting that 
4 
or = --Q 6 -a-y and 86 = 6 + 6 
1 2 : 1E R 
4 ae 
gre = arcsin Pa Sin (Tv - 2 
n 2 
2 
and 
Q = arcsin | — sin(é@ + a-—- y) 
27 a) a 
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Equation (D-5) is recognized as a transcendental equation 


Se the form 
n n 


n 

z | ae 3 3 

tany = tan arcsin| - sin(0, + a | + Sa a = (D6) 
2 2 Ry 2 

which must be solved iteratively. The constraints on the 


solution are that (86 +a) < = and 


7 


et 
(n,/n,) ee +arty) sl and eR, t+ Ys. 


Tne appearance of the configuration of this lens in 
3-dimensions would be two cones fit base to base. The 
image formed would be inverted with the center missing; 
1.@. an annulus. Therefore a substantial amount of energy 
could be lost in the image if the energy distribution of 
the object is Gaussian with the maximum at the center of 
the object. Therefore equations (D-1) and (D-6) are neces- 
sary and sufficient conditions to insure the incident ray 
in medium 1 is parallel to the exit ray in medium 3. If the 
condition that °R, = om then the general lens reduces to 
the rhombus of figure D-1l, or that of a parallelopiped in 
figure D-4. The position a block lens would occupy in the 


GLM is shown in figure D-5. 
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APPENDIX E 


GRADIENT INDEX OPTICS 


The development of material which exhibits a continuous 
change in the optical index of refraction over distance has 


opened a new area in the field of optics. Gradient index 


(GRIN) material has been applied in the field of fiber optics 


communications and integrated circuits with expanding numbers 


Of applications. GRIN has the effect of replacing individual 


lenses in an optical system. Theoretically GRIN material has 


the ability to refract light because of the continuous change 


in index of refraction in the medium. Practically the amount 


of refraction 1S proportional to the change in the relative 
index from macroscopic region to macroscopic region. 

GRIN material is produced with one of three types of 
gradients in the index of refraction referenced to the opti- 
cal axis: 

1. Axial 

Gee cylindrical 

3. Spherical 
Axial GRIN varies the index of refraction along the optical 
axis. Cylindrical GRIN varies the index of refraction 
radially from the optical axis. Hence, in three dimensions 
the surfaces of constant index form concentric cylinders 
centered on the optical axis. Spherical GRIN varies the 
index of refraction radially from the origin. The surfaces 


of constant index form a set of concentric spheres [8]. 
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Born and Wolf [9] discuss the general properties of light 
rays in GRIN material with spherical symmetry. The trajec- 
tory of the light ray is described by Bouguer's relation, 
ndsing = constant, where $9 is the angle between the posi- 
tion vector ¥ and the tangent at point P as shown in figure 
E-l and is illustrated inside the GLM lens in figure E-2. 

For two dimensions using polar coordinates, the angle can 


describe explicitly as 


sind = eee) (E-1) 
Vr (o) + (3)? 
2 2 2 : 
where dr/d@ = (r/c) Vn“r~ -c omits the 


angle between two consecutive radii and c is Bouguer's 
constant. In three dimensions using spherical coordinates 
the relation for the change in 98, illustrated in figure 


E-3, over a range of radius is given by 


rt Gas 
@-960 = c¢ ———— ee (E-2) 
o Re) 22 Z 
weevil Le = C 
O 
Given a sphere of GRIN material shown in figure E-4 with 
a spherical gradient, a GLM lens can be selectively cut from 
the material. The lens can be customized with an index of 
refraction profile suitable for the application. A possible 
profile for the GLM conical lens, is shown in figure E-5, 


with a minimum and maximum located at a specific radius from 


the origin. Hence the ability to customize the GLM lens 
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Ray 





Figure E-3. Illustration of the Relationship Between 


¥ and Between Adjacent Rays in the 
GLM GRIN Lens. 


) 257 





*AzqouwAs Teotzreyds Hutytqtuxyg 
TeTaz99eW NIUD JO uoTt}O9g e se sueT WID © JO UOTIeAISNTII *p-G omNhtTy 


U0I}901J9y JO xX8puU! 


juOJSUOD 4O saul 


(J3Y) SIXY W19 


a, 
Zee 
KK Ge) y 


258 





"uTHbTI0 oul wots SnNTpeYy 
JO uoTRZOUNY e& Se ST TFJOAgG uoTtTRIOVAFSYy JO xoepul 
NISINO SHL WOYS SNIOVY 


XVAW 0, 


°G-q oanbtyg 


NIA 


XV 


UO!{90sja4 JO xapUy 


259 


1] 





enables the lens designer to place the maximum value of the 
andex of refraction at the desired location. The profile 
shown in figure E=-5 can be applied to the GLM conical lens 
with the index profile varying along the first surface shown 
in figure E-6. 

Bouguer's constant, defined by the relation nrsind=c 
is a function of the radius, index of refraction at that 
radius and the angle 9» defined earlier. However, once the 
ray enters the GRIN medium, the constant is invariant along 
the ray. Therefore the constant can theoretically be deter- 
mined explicitly at any point. Practically, two points 
exist at which the constant can be determined. These are 
at the intercept of the incident ray and the first surface 
and the intercept of the ray in the conical lens and the 
second surface. The most convenient position to calculate 
c is the first surface because n, r and >? can all be 
determined explicitly on the first surface. Table E-I is 
a tabulation of values of Bouguer's constant c. Figure E-7 
shows the relationship between the constant c and the 
radius from the origin along the first surface of the GLM. 

Calculating the ray paths through a conical lens composed 
of GRIN material must be accomplished by solving equation 
(E-2) at each point in the lens. A complete algorithm was 
not written because of the time constraints, but TRACE can 
calculate the value of Bouguer's constant and refract the ray 


at the first surface shown in figure E-8 using the value of 
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BOUGUER'S GRIN CONSTANT 
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Baceanaex Of refraction at that point. The calculated data 


for the ray diagram is tabulated in Tables E-II and E-III. 
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ee eed 


INITIAL PARAMETER VALUES 


ee a TA EI Tim i em 


RHOCINITIALS = 6.8909 degrees Alpha = 21.00 degrees 
TANCRHO-INITIALD = 8.00 TancAlphas = .32 
nl = 1.980608 n3 = 1.00808 


Nmtn = 2.00008 


necl> = 2.44444 Ne Cees ee. bee 9 nes Ge ho. fT soe 
meoes> = 2.58301 n2o5% = 2,35465 m265> = 3.83445 
n2c?7> = 3.19497 n2ce3> = 3.18790 n2c3> = 3.22441 
mes iGs = 3.2r930 mesils = 3.s2l1l3r m2clzy = 3.38295 
nec13> = 3.48651 n26l4>) = 3.43436 n2O1S> = 3.40474 
nec16> = 3.49193 mecl1?> = 3.51596 n2e13) = 3.53718 
neci39> = 3.55543 n2z¢20> = 3.57106 m2C21> = 3,534065 
n2c22> = 3.59449 n2¢23> = 3.66241 n2¢24) = 3.88735 
n2c23> = 3.610953 n2¢26> = 3.61138 n2c]27> = 3.60945 
n2i.23>) = 3.650516 n2c23> = 3.593236 n2630> = 3.52307 
Mme si >) = 3.9%fes n2°¢32> = 3.568289 neC33> = 3.58563 
n2c34) = 3.52532 n2¢35> = 3.56399 n2636>) = 3.47735 
n2ce37) = 3.44345 n2¢33> = 3.415619 nec33> = 3.32023 
n2648) = 3.349860 n2e4¢1> = 3.29663 n2¢42> = 3.24798 
n2643> = 3.19467 n2c44> = 3.13415 n2635>) = 3.80erTse 
n2c46) = 2.399195 neo8F7> = 2.79593 ne6s3> = 2,306812 
n2c49) = 2.68635 n265@) = 2.54635 n2csls = 8.909800 
R@ max = 1.61147 Inches 
Apertur? = 1.108 Ya = 96.000 inch Yb = 1.108 inch 


Number of Rays = Sy 
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TABEE S=Lil 


RAY DIAGRAM DATA CALCULATED FOR FIGURE E-8 





CX, YY) ieee tee taly? ising. Vos Cicely N2 FHI 





9.03 .@2 05 .We 4.896 -4.24 93 3.90 2.44 Gi. at 
H.960 .04 eff 14 3.96 -4.24 2-15 08.06 cme =e en Li 
9.80 .0° ~l? sO 3.31 =-4.26 223 9.08 2.75 -4%,14 
9.3939 .89 ae 93 3.89 -4.26 239 8.9 2.35 ~47. 21 
0.09 11 ate ie elt 3.39 -4t+.e8 «vse. 08 2.95 =). 52 
9.89 .13 -34 113 2.90 =-4.26 245 9.98 3. BS Sel sles 
9.92 .15 ~49 We gee =4.25 252 0.0 2.18 =-31.45 
9.49 .16 46 15 3.94 -4.2 25H 0.00 3.16 Stee of 
8.5959 209 -S2 .29 on of hc 25r 1.98 2.21 Ste atl a 
H.90 .22 ont ae 4.009 -4.22 .74+ 8.090 geen Sve 
9.90 .24 53 .24 4.03 -4.2! 32 9.00 seal lcs tao 
09.9060 .26 59 ees 4.07 -4+.28 39 9.00 3. on -Se.24 
9.990 .29 ie Re cE 4.11 -4.13 75 3.08 202 aso. te 
3.89 .31 -30 .3! 4.15 -4.16 1.03 3.08 Se 42 Sess Le 
@.9358 .33 -35 .33 4.19 -4.15 1.11 5.88 3.46 Sic. ie 
¥.99 .35 212 «se 4.24 -4.13 1.13 3.94 3.42 a oi 
4.86 .37 397 27 4.29 -4.11 1.25 3.60 3.31 Sos on 
8.909 .40 1.93 .48 4.33 -4.09 1.32 4.08 Some Sy a as 
8.50 «v2 1.99 .#2 4.33 -4.9¢ 1.44 3.00 3.55 St as te 
99 1 44, 1.15 44 4.43 -4.46 1.47 39.908 Sem dra sa 
H.49 46 1.20 .46 4.47 -4.54 1.54 3.99 oe we =o « es 
9.990 .43 1.25 .46 4.54 -4.02 1.51 9.90 Sie sh. 25 
3.090 .351 lace sic 4.53 -4.99 1.62 9.18 32.50 se ot 
42.92 .53 1.33 .353 4.65 -3.97 1.75 4.06 Sirol -we. 37 
9.990 .55 1.83 .39 4.79 -3.35 1.33 9.09 2.51 -S4.091 
@.90 .5¢ 1.49 .S?7 Ber O23. 7 3 1.91 9.00 semt -S4.02 
9.59 .39 1.55 .39 4.32 -3. 91 1.393 4.069 eal said Et 
9.23 .62 1.59 .82 to -2. 33 2.45 9.00 S.ml “54.49 
0.19 64 1.65 .54 4.93 -3.36 2.175 9.09 3.29 =o. 
H.98 .85 l.r2 .66 7298 -3.34 2.28 133.00 3 6 oie = elas = 
9.939 .63 lars 1.63 Dove sece 2.27 9.09 Sede -33. 798 
H.909 78 bee -79 Sate -3.79 2.35 03.49 Sao 6 aoe So «sd 
0.399 .72 L.39-73 ~kp ci 2.42 4.00 3.0 =33. 0s 
9.90 .75 le9s 3 r Secs ~3.7% 2.50 0.46 Zao “Eero 0 A 
9.9038 .7 BO iC Pest —~ser 2 2.Je 9.09 Jove oS ib <. 
0.89 .79 2.96 .?79 ee —s50o 2.55 4.98 3.58 “ee oat 
0.90 .31 zeelzZ .31 3645 -3.57 2.73 8.00 3.4F =3S. 37 
9.00 .34 2.135 .34 we Sao. Oe 2.38 9.09 3.44 -26.25 
9.00 .36 2.24 .86 ae oes. & 1 2.33 9.08 3.41 =73.19 
9.400 .38 2.29 .33 S.66 -3.58 2.96 9.00 Seon swe. 73 
0.30 .30 2.35 38 weft =Ss 55 3.94 3.69 3.33 ~Bo.i = 
9.900 .92 2.41 .32 De Ge we. we 2.12 6.38 cae? = 
9.960 .95 2.45 8619S 3290 -3.89 3.20 9.98 3.24 i ee 
9.990 .97 2752 .397 7.97 BB 0A6 2.23 9.190 3.12 “ie fa 
9.00 .9%9 gous . 79 S.or =sa RS 3.36 9.90 se te =i. O34 
9.39 1.01 2.64 1.91 BiethiG) Sets 32 3.45 3.99 2.98 wot. ae 
0.48 1.093 2.597 1.03 Goa: —Sase 3.54 9.69 Ze ee 
9.00 1.86 eur we 1,05 6.05 Se. ol 2.63 9.89 2.9% -S0.24 
9.99 1.83 2.391 1.082 ig RE 3.73 9.0% 2.30 =e 
9.00 1.10 ease Lei © ora) PS oc 3.33 3.99 2.59 W400 
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APPENDIX F 


SECOND SURFACE GENERATION: ITERATIVE SOLUTION 


A. INTRODUCTION 

One of the conclusions reached as a result of the investi- 
gation of curves A, B and C in Appendix C was that using a 
single polynomial to describe the second surface of a conical 
lens cannot satisfactorily refract light to a single, distinct 
focal point. Hence, a satisfactory image of an object cannot 
be formed. 

Three options for further study remained. First, continue 
to try and find a suitable polynomial to describe the second 
surface. This option was not pursued because of the infinite 
number of trials which would be required to determine if such 
an analytic expression existed. The second option would be 
to attempt to optimize a given polynomial by manipulating the 
coefficients of that polynomial to change the refracting prop- 
erties of the polynomial such that a single, distinct focal 
point could be formed. This option was pursued by using 
Control Program for Engineering Synthesis (COPES) developed 
by Dr. G.N. Vanderplaats, Naval Postgraduate School. The 
study was halted because of time constraints. However, ini- 
tial results concurred with the previously mentioned results 
of Appendix C. 

The third option was provided by an inquiry made by Dr. 
E.C. Crittenden, Naval Postgraduate School, concerning 


the capability of the TRACE program to draw rays backward; 
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i.e. could TRACE begin a set of light rays at a design focal 
point and draw them through the lens and into the medium 
ahead of the lens and emerging parallel to the GLM axis? 
Accomplishing the "backwards" ray trace would design the 
lens. Conceptually, at least two methods of generating the 
second surface of a conical lens exist and are available for 
investigation. The first method consisted of picking the 
initial point of the second surface to be the GLM axis- 
intercept of a refracted ray in the lens medium, noting that 
the ray must be refracted along the GLM axis to pass through 
the axis. Therefore, the slope of the second surface at the 
first point must be equal to the slope of the first surface. 
The derivation of this relationship is performed in Appendix 
A. The second point on the surface is calculated by extending 
a straight line by using the slope at the first point to 
intercept the next ray in the lens. Since the second point 
1s not on the GLM axis, the slope at the second point required 
to satisfy Snell's Law will not be equal to the slope of the 
first surface. This process was chosen as the preferred 
method and is discussed in Chapter III and Appendix A. 

The second method of generating a second surface fora 
conical lens is similar to the first method. The difference 
is that a parabola is used instead of a straight line to 
predict the second and succeeding points on the second sur- 
face. A different parabola is used for every pair of points. 


A nonlinear predictor is desired because the shape of the 
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second surface is nonlinear. The following discussion 
describes this method of second surface generation for a 


conical lens. 


B. ITERATIVE SOLUTION 


1. Derivation of Expressions pial wp ag OF amd. 2 


The iterative solution is motivated by the ability 
of a computer to perform a great many calculations in a 
small amount of time. Referring to figure F-l for the geome- 
try and symbol definitions, the most significant steps in 
the iterative solution are: 
Comin tcralization: 
(a) Choose a focal point on the GLM axis. 
(b) Choose an initial lens point Tl. 
(c) Choose an initial change in p02, Apo. 


(2) Calculate the ray parameters 49 P2 and a2 


a 
for the initial lens point by applying Snell's Law at Tl. 

(3) Calculate the second lens point T2 by fitting a 
parabola through Tl and predict the coordinate values of T2. 
Iterate this prediction until the error is reduced below an 
acceptable tolerance. The error is defined to be the distance 
at which T2 intercepts the GLM axis. 


(4) Calculate the ray parameters 49 P2 and a2 


lies 
mor T2. 
(5) Continue until the lens has been designed to the 


GLM axis. 
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NOTE: All coordinate values are referenced to a right hand 
system. All angles are referenced to the GLM axis 
and are positive for counter-clockwise BOtativon Lrom 
the axis to the point in question. The coordinate 
values (abscissa, ordinate) are referred to as (x,y) 
with x = the distance along the GLM axis and y = the 
radius from the GIM axis. The subscripts are either 
Single or double. The single and the first subscript 
in the double subscripts, the number refers to the 
surface at which the application of Snell's Law 
occurred. If the subscript is a letter the subscript 
refers to the operation of Snell's Law; I for angle of 
incidence and R for angle of refraction. The second 
subscript refers to the point number in the lens. 
For example 12 is the slope of the second surface 
at point number two. Any exceptions to this convention 
for subscripts will be made clear within the context 
of the discussion. 

The investigation consisted of deriving the analytical 
expressions relating the quantities shown in figure F-2. The 
primary variables of interest are the angle of incidence Orr 
Q@2 the angle of the tangent line at T and p2 the refracted 
ray angle in medium 3. The assumptions made in the derivation 
are that the following quantities are known: 

(1) 91; the ray angle in the lens medium, measured with 


respect to the GLM axis. 
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(2) O2; the ray angle in medium 3 measured with respect 
to the GLM axis. 

3) no; the index of refraction of the lens medium. 

(4) N3i the index of refraction of medium 3. 

(5) £; the design focal point on the GLM axis. 

(6) (x,y); the coordinate values of the Point T. 

(7) the ray is transmitted without loss in all media. 

(8) the ray is either refracted or totally reflected 
at the boundary of two media. 

As discussed in Chapter III there exist two regions where 
the refracted ray in the lens can be refracted at point T. 
Point T is located in the low region as defined by the area 
below a line QP shown in figure F-3. In the low region 
|o1| is always greater than or equal to [8]. Point T is 
located in the high region when |p;| is less than |8| 
as shown in figure F-4. 

Each point on the lens' second surface must satisfy Snell's 
Law sind, = n/n. sind, or be totally reflected at T. There- 
fore referring to figure F-2 the angle of incidence in the low 
region is 


os | 5 - a2) - |p. vee) 


and the ray angle in medium 3 is 


Jo2zf = = - (6, + ae) (F-2) 
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substracting equation (F-2) from (F-1) and substituting 


Snell's Law for On yields 


n 
eee 2 | = \eaje> arcsin E sing | (F-3) 
ns ce 
Now G2 = (jo2} - 9.) hence 
2 R 
n 
TT 2 
2 ae Sa [oe | 7 arcsin ( =2 sing )] (F-4) 
Ns I 
Equation (F-3) is a transcendental equation in OF and 


therefore can be solved graphically or by numerical methods. 
Therefore, equations (F-3) and (F-4) must both be solved for 
each iteration of oF until a satisfactory value of a2 is 
determined. Experience from using the CHART algorithm shows 
that an initial guess of oF = Q@-2- should allow the algo- 
rithm to converge quickly. The critical angle oO. is the 
angle of incidence at which sind =l. Changing equations 


(F-3) and (F-4) into a form suitable for a numerical algorithm 


yields 


@D 
I 


n 
: Z 
lo2| - {or|] + sresin | 22 sino, (F-5) 


2 
nN 
ll 


n 
> - tos + arcsin (<2 sind, ) (iE G)) 
1 3 serch 


for the angle of incidence and angle of the tangent line at 


Point T in the low region. 
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As shown in figure F-4 the angle of incidence in the 
high region is 
8, = [p2! - [e2| 7) 


and the ray angle in medium 3 is 


1 
ae - > G2 + Up (F=-8) 


Adding equations (F-7) and (F-8) and substituting Snell's 


Law for On yields 


TT pes 
a > (|oi1] + a2) + aresin es (F-9) 
TT 
now a2 = 5 - |NORM| 
hence 
a2 => - [pi] + 0 (F-10) 
2 s I 
Equation (F-9) is a transcendental equation in o, and must 


be solved graphically or by numerical methods. Therefore 
equations (F-9) and (F-10) must be solved for each iteration 


of O until a satisfactory value of a2 is determined. 


From the geometry in figure F-4 an initial guess for 


a 2 |p1| should cause fast convergence to the desired 


value of a2. Changing equations (F-9) and (F-10) into a 


form suitable for numerical applications yields 


n 
Q ee 
Le n41> x ~(1P2| oa) + | ee (F-11) 


me ae 
eer > 2 lea | of: ee (F=-12) 


278 : 





for the angle of incidence and angle of the tangent line at 
Point T in the high region. 
2. Predicting Succeeding Points on the Second Surface 

The iterative solution method must involve a regres- 
sion routine to use a parabola to predict the next point on 
the second surface. The regression routine solves a set of 
Simultaneous equations consisting of the equation of the 
parabola and first derivative at T) (x) /¥y) and T, (X54Y5) 


in the form 


2 
a+ ar - CX, ee 
= ' 
oe 2CX, y'y 
> (F-13) 
at bx, + CX, = We 
—_ q 
a + 2CX, ae 


The set of equations is nonlinear in x, but is linear in 

the coefficients. Therefore, the techniques of linear algebra 
can be used on equation (F-13). The method used here is the 
Gaussian-Jordan row-reduction technique discussed in Anton 
[10]. The first step is to form the augmented matrix whose 


determinant is set equal to zero 


2 
1 xy xX) Yy 
0 1 2X1 y'y 
=) (F-14) 
1 X5 X5 Y> 
0 a 2X5 y'> 


Zag 





The row-reduction technique diagonalizes the first three 
columns of determinant (F-14) with, in general, non-zero 


quantities in the fourth column in the form 


i 0 0 A 
0 L 0 B 
0 0 7 C = 0 (F=-15) 
0 0 0 A 


Since four equations have been used to determine the three 
coefficients a, b and c the determinant is over-specified 
and nonhomogeneous. Utilizing the fact that the expression 


represented by D at location (4,4) in (F-15) is equal to zero 


q 

= — t — = aca: = 
| D= XY! X1Y,' + X5Y5' XoYy 2y5 + 2Yy 0 (F-16) 
ae Xo # X11 which is reasonable, since the problem demands 


that x, # xX}: Simplifying equation (F-16) and solving for 





coe «(OY 
+ yields 
2 J 
ale i. 
ay _ Yg7¥, YQ *¥y i. 
AX Ao -Ky Z 


Equation (F-17) states that the slope of the straight line 
connecting Tl and T2 in figure F-5 is the average of the 
slope of the parabola used to predict T2 evaluated at Tl and 
T2. This result is very simple, yet provides a tool to use 
in predicting the value of T2. Experience gained in using 
CHART has shown that the second surface of the conical lens 


is a smooth convex surface with no discontinuities; compare 
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feeees 14 and 20 in Chapter III. The exact shape of the 
second surface is a function of the cone half-angle a, and 
the indices of refraction Nn, MNs and n,- The first guess 
of where T2 is generated by coordinate values of the inter- 
section of the ray in the lens and the ray in medium 3 is 
Shown in figure F-l. The set of equations (F-13) is solved 
using (x1, Y,) and (x5 ,Y>5) to find (AY/AX) in equation 
(F-17). Since the slope at Tl is known the next guess of the 
actual location of T2 is aided by the experience of using 
CHART. The slope at T2 will increase as the first surface is 
approached. Therefore, calculating the slope of the line 
connecting Tl and T2 and comparing that value with the value 
from equation (F-17) will determine whether to increase or 
decrease Ap2 to predict the next position of To: This 
procedure is continued until the coordinate values of T2 


are determined within a specified tolerance. 


C. NEWTON'S METHOD 

The recommended numerical method used to solve the trans- 
cendental equations for oF and G2 in section B-l is 
Newton's method. A detailed explanation of the technique is 
not provided here. Scores of texts on applied numerical 
methods exist and should be consulted for further study. 

Newton's method is simple and converges quickly if the 
function does not have any of the characteristics illustrated 
in figure F-6. If the function describing o, exhibits a 


local minimum in the range of interest, Newton's method will 
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diverge as illustrated in figure F-6a. If the function 
exhibits an inflection point, Newton's method will diverge 
as shown in figure F~-6b. If the function has multiple roots 
in the range of interest, Newton's Method cannot determine 
which value is correct. The special case of a multiple root 
is shown in figure F-6c. Newton's method will approach the 
roots from one side then overshoot and oscillate back and 
forth, never converging on the desired value. A function 
which is "well behaved" is shown in figure F-7; compare the 
characteristics of the curve in figure F-7 and those of figure 
F-6. 

The application of Newton's method as shown in figure F-7 
involves the selection of a value of 68 as the first guess 


af 


oF , finding the functional value £ (9, ) and the slope 


a ill 
£' (6, ). The prediction of the correct value of o, is via 
L 2 
the relation 
£(o, ) 
8 = 96 - L (F-18) 
i, iE, —— 
f (8, ) 
a 


The process is repeated until the difference between two 

succeeding values of 6,, (one oe | ais less than an 
n n-1 

acceptable tolerance. Transforming equation (F-18) into 


general form yields 


Q - 
Titl ce 8+ 7 eee ae (F-19). 
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APPENDIX G 


LIMIT PROGRAM DESCRIPTION AND LISTING 


The derivation of the relationship between the slopes 
encountered of the first and second surfaces of a GLM lens 
composed of homogenous material by the ray shown in figure 
G-l is the subject of this appendix. The derivation is 
applicable to the case in which total reflection occurs at 


the second surface. 


The incident ray in medium 1 forms an angle 6, with 
i 
the first surface normal n, at point Tl and is refracted 
according to Snell's Law. sing —sina/ieaseno << (the first 
Ry dare Ty 


surface normal n, is defined as the normal to the tangent 
line at Tl. The angle which the tangent line makes with 
respect to the GLM axis iS a2. The ray traverses the lens 


and intercepts the second surface at T2. The ray is refrac- 


ted at T2 according to Snell's Law sing = (n/n Sings 
Ro 2 3 I, 
For total reflection at T2 
(23) 
sind = 1 = \—/ sind (G~1L) 
Bo) hy 20; 
Now the angular difference between A, and n, is (a — Q2) 
and therefore 486 = 8 + (a~a2) Hence 
ef R 
2 id 
3 _ olan 
R, + (a -a@2) = arcsin\| — (G2) 
al no 


The angle with respect to the GLM axis of the tangent line at 


T2, G2, is then defined by 
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a eS 
Qo = arcsin | — sind + a@ = arcsin| — (G=-3) 

n I n 
ae 1 2 

Noting that 9 = then 

qy 2 

i n 

@2 = arcsin i sin 3 - ) = arcsin (#3), OL G—-4) 
No 2 no 


Equation (G-4) is illustrated in figure G-2. 
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619 
629 


PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
DI 
WA 
OP 
IN 
DE 
FI 
PR 
Li 
Li 
NI 
N3 
IN 


FO 


N 


P 
P 
B 
W 
B 
P 
E 
GOTO 
Head 


CIMIT PROGRAM LESTING 


"HK EERE ER KRREKE KEK KEE KEE EEK KEE EEE EEE EEE EERE REET EERE REMEEEERE" 
is * *" 
ve Emr x" 
w % ee 


VERE HEE ESE EEE EE KEE EERE KEKE KEKE SKEETER EEEKEKREEEEEEEESE" 
SP “THIS I[S LIMIT” 
IT 2588 
TION BASE ¥ 
TEGER [,Linecount,Linemax 
G 
xED 2 
INTER IS 16 
necount =0 
nemax=48 
zi 
=1 
PUT "DO YOU WANT A HARD COPY? Y/“N",YS 
IF YS="¥" THEN PRINTER IS @ 
GOSUB Heager 
CALL Graph 
R N2=1.5 TO 4.5 STEP .S 
Alpha=5 
Thetai_1=96-Alpha 
Sin_thetarl=N1I/N2*4SINCThetai_1) 
Thetar_1=ASNCSin_thetarl) 
Al pha2=Al phatASH(N1/N2*SINC90-Al phad )-ASNCNS/N2) 
Thetai_2=Thetar_1+Alpha-Alphae 
IF Linecount >Linemax THEN GOSUB Header 
PRINT USING 419;N2, Thetai_1, Thetar_1, Thetai_2,Alpha,Al phae 
Linecount =Linecounttl 
MOVE Alpha, Al pha2 
FOR AlphasS TO 35 STEP 5 
Thetai_1=98-Alpha 
Sin_thetarl=NIlv“N2*SIN¢«Thetai_ 1) 
Thetar_1=ASNCSin_thetarl> 
Alpha2=Al phatASN(Ni-N2*SIN¢Thetai_1)>-ASNCN3/N2) 
Thetai_2=Thetar_1+Alpha-Alpha2d 
IF Linecount >Linemax THEN GOSUB Header 
PRINT USING 4198;N2,Thetai_1,Thetar_1, Thetai_2,Alpha,Alpha2 
Linecount=Linecount +l 
IMAGE 5X,DD.DD,5¢5xX, DDDD. DDD) 
DRAW Alpha, Al pha2d 
NEXT Alpha 
LDIR Q 
LORG 2 
CSIZE 2.5 
LABEL USING 48@;N2 
IMAGE K 
IF Linecount >Linemax THEN GOSUB Header 
PRINT 
Linecount=Linecounttl 
EXT N2 
GOSUB Header_end 


RINTER IS 16 
RINT LINC2),"PRESS CONT” 
EEP 
AIT 250 
EEP 
AUSE 
XIT GRAPHICS 
Finished 
er: IF Linecount >Linemax THEN GOSUB Header_end 


IF Linecount >Linemax THEN PRINT PAGES TABC23)3; "TABLE I <CCONTO"SLINC 
IF Linecount<=Linemax THEN PRINT PAGE; TABC35);"TRABLE I “;LINC2) 


Linecount =9 
PRINT LINC2) 


290 i; 





2 -=s 8 = —_—w 


679 GOSUB Char 

689 PRINT LINCLOSSPACS)3" n2 Thetal¢(1> ThetaRCl> Thetal (2) 
Alpha Alpha2”"5;LINC1) 

699 GOSUB Char 

780 PRINT LINC2) 

718 RETURN 

729 Char: FOR I=9 TO. 79 

730 IF {279 THEN PRINT CHRS(6223> 

742 IF I279 THEN 768 

758 PRINT CHRS$(228); 

769 NEXT I 

779 RETURN 

780 Header _end: PRINT LINC2>) 

7998 : GOSUB Char 

389 RETURN 

819 Dump_it: PRINTER I5 0 

829 PRINT CHRSC270&"%) G0T" 

839 DUMP GRAPHICS 

849 PRINT CHRSC275&"&136T" 

859 PRINTER IS 16 

869 RETURN 

8798 Finished: Dump_crt$="N" 

889 INPUT "DO YOU WANT A HARD COPY OF THE PLOT ? ¥“N", Dump_cres 

899 IF (Dump_crt$e"¥"> OR (CDump_crtes="y")> THEN GOSUB Dump _it 

929 DISP “FINISHED” 

919 END 

9290 SUB Graph 

939 OPTION BASE 8B 

949 DEG 

939 ! 

969 ! 

979 ! THE EXPRESSIONS USED TO DERIVE THE TIC MARKS WERE OBTAINED FROM THE 

9890 ' HP-9845B UTILITIES LIBRARY, TAPE NR 09845-19235, PROGRAM "REGPLT" 

999 ! 

19e6 =! 

18019 GCLEAR 

1920 PLOTTER [5S 13, "GRAPHICS" 

1030 LDIR @ 

1940 LORG 5S 

1050 LIMIT 0,184,0,1909 

1960 ! 

1970 DATA -2,-1,1,2 

1980 READ Um, Dm,Md,Mu 

1090 DATA .39794,.59397,.375906 

1198 READ Log2,LlogS,Log? 

11190 =! 

1120} §6Xorg2=XminzYorg2Ymin=@ 

1130 Xmax=9@ 

1140 Ymax=30 

11590 Alpha: INPUT “WHAT IS THE MAXIMUM VALUE OF ALPHA ¢ DEFAULT = 90 DEGREES) ?" 

, Xmax 

1169 Alpha2: INPUT “WHAT IS THE MAXIMUM VALUE OF ALPHA2 ¢ DEFAULT = 30 DEGREES) 

7", ¥max 

1179 IF Xmax<2Xmin THEN BEEP 

1189 IF Xmax<sXmin THEN DISP “ALPHA MUST BE > @. PLEASE RE-ENTER ALPHA." 

11990 IF Xmax<2Xmin THEN WAIT 2500 

12909 IF Xmax<=Xmin THEN Alpha 

1219 IF Ymax<=Y¥min THEN BEEP 

1220 IF Ymax<2Ymin THEN DISP "ALPHAZ MUST BE > Q@. PLEASE RE-ENTER ALPHREe. "“ 

12390 IF Ymax<=Ymin THEN WAIT 2508 

12490 IF Xmax<2Xmin THEN Alpha2 

12590 GRAPHICS 

1260 ! 

12709 LIMIT 8@,134,0,149 

1289 LOCATE 20,132,28,1900 

1290 Lx2LGT¢Xmax-Xmin> 

1300 LysLGT¢CYmax-Ymind 


De 





1318 
1320 
1330 
1348 
1358 


Afudge=.@2*¢Xmax-Xmind) 
Yfudge=.02*¢Ymax-Ymind 
Ticmarks: Testxtic=FRACTCLx3+¢(Lx<@)d 


Testytic=FRACTCLyd+CLy< > 
AtCicslOccINTCLxd~Lo¥C lol. Sec CC Test xticr>lLog2) AND (Testxtic<lLogsS))+ 


4#¢CTestxtic>=LogS) AND (Testxrict slog?) )+5.5*¢Testxtictbog?)) 


1360 


YCIG#UO“CINT CL yd o4C1+l. Sec cTestyticolLog2> AND (Testytie<LogS))+ 


4#CCTestyticralogsS>) AND (Testytic< =bL0g7) +6. S5*t( Testytic *Logr)) 
1378 Scale: SCALE Xmin, Xmax+. 254ABSCRKtIi¢cd, Ymin, (max. 254ABSCYti¢d 


1380 
1390 
1400 
1410 
1420 
1430 
1449 
1458 
1469 
1470 
1480 
1490 
1500 
1518 
1520 
1539 
1549 
155 
1560 
1379 


CLIP Xmin, Xmax, Ymin, Ymax 

LINE TYPE 3 

XhajzYmaj=t 

Minticsizes4 

GRID Xtic,Ytic, Xorg, Yorg,Xmaj,Ymaj,Minticsize 
LINE TYPE 1 

FRAME 


Labelx: LDIR 96 


LORG 8 
FOR A=Xorg TO Xmax STEP ABSCKtricd 
MOVE A, Yorg-Yfudge 
LABEL USING 157@;A 
NEXT A 


Labely: LDIR @ 


LORG 8 
FOR AzYorg TO Ymax STEP ABSCYtic?d 
MOYE Xorg-Xfudge,A 
LABEL USING 15780;A 
NEXT A 


IMAGE #,K 

LABEL USING 1590;"" 
IMAGE 7,K 
Label _: SETGU 


Te 


LDIR @ 

LORG 5 

Centerx=72 

Centery=64 

CSIZE 3 

MOVE Centerx,1@0 

LABEL "Alpha : Angle of the Tangent Line at the First Surface ¢ deg 


LDIR 98 
MOVE 1.45,Centery 

LABEL "“Altpha2e : Angle of the Tangent Line" 
MOVE 6.45,Centery 

LABEL "at the Second Surface ¢ degrees )" 

LOIR 9 

CSIZE 1574.54 

SETUU 

SUBEXIT 
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